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TRADE  NAME  DISCLAIMER 


Certain  commercial  components  used  in  the  measurement  system  are  identified  in  this  document 
in  order  clearly  to  instruct  the  operator  in  the  use  of  the  system.  The  instructions  refer  to 
specific  models  of  specific  instruments,  and  to  their  controls  to  ensure  that  there  are  no 
ambiguities.  Such  use  and  identification  does  not  imply  recommendation  or  endorsement  by 
NIST,  nor  does  it  imply  that  the  identified  items  are  necessarily  the  best  available  for  the 
purpose. 
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NIST  MODEL  PM2  POWER  MEASUREMENT  SYSTEM  FOR  I mW  AT  1 GHz 


Fred  R.  Clague 

National  Institute  of  Standards  and  Technology 
Boulder,  Colorado  80303 


The  design  and  operation  of  an  automated  measurement  system  designed  to 
measure  power  accurately  at  the  level  of  1 mW  and  at  the  frequency  of  1 GHz 
are  described.  The  system  consists  of  commercial  IEEE  Std-488  bus-controlled 
instruments,  a computer  controller,  and  software.  The  results  of  a series  of 
measurements  are  output  to  the  computer  display  and,  optionally,  to  a printer. 
The  results  are  the  mean  of  the  measurement  series  and  an  estimate  of  the  Type 
A (here  random)  and  Type  B (here  systematic)  uncertainty.  The  estimated  total 
expanded  uncertainty  for  the  average  of  six  consecutive  measurements  of  a 
nominal  1 mW,  1 GHz  source  is  typically  less  than  1 percent.  The  system  can 
measure  any  power  from  0.1  to  10  mW  at  any  microwave  frequency  by  making 
appropriate  changes  to  the  software  and,  possibly,  the  hardware. 

Key  words:  automated  measurement;  microwave;  microwave  power  measurement; 
power;  power  measurement;  power  measurement  system. 


1.  INTRODUCTION 


This  system  is  designed  to  accurately  measure  microwave  power  at  the  level  of  1 mW  and  the 
frequency  of  1 GHz.  Specifically,  it  supports  the  calibration  of  the  Wavetek  8502 A pulse  power 
meter,  which  has  a 1 mW,  1 GHz  calibrator  output  port.  The  manufacturer’s  specification  on 
the  power  output  accuracy  is  ±1.5  percent.  Use  of  the  system  is  not  restricted  to  this  specific 
application;  relatively  simple  modifications  to  the  software  would  make  it  possible  to  measure 
other  power  levels  and  frequencies. 
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The  microwave  power  measurement  method  is  based  on  the  dc  substitution  technique.  The 
system  is  implemented  using  a commercial  version  of  the  NIST-developed  Type  IV  microwave 
power  meter,  a commercial  coaxial  thermistor  mount,  a digital  voltmeter  (DVM),  and  a 
dedicated  computer  controller.  The  Type  IV  power  meter  is  not  direct  reading;  the  substituted 
dc  power  is  calculated  using  readings  obtained  from  the  DVM.  The  computer  controls  the 
measurement  process,  calculates  the  results,  and  prints  them  out.  Measurement  results  include 
an  estimate  of  uncertainty  for  each  data  set.  Automation  also  allows  use  of  a procedure  that 
adequately  corrects  for  drift  of  the  thermistor  mount  caused  by  external  temperature  changes. 
The  system  is  packaged  in  a single  operating  case  with  a storage  drawer  containing  all  necessary 
cables,  two  thermistor  mounts,  system  software,  and  the  operating  manuals. 


2.  OPERATION 


2.1  Initial  Steps,  Hardware 

1 . Connect  the  supplied  ac  power  cables  to  the  DVM  and  power  meter. 

2.  Connect  the  supplied  IEEE  488  bus  cable  to  the  power  measurement  system  and  the 
IEEE  488  bus  card  in  the  PC. 

3.  Connect  the  thermistor  mount  to  the  Type  IV  power  meter.  The  end  of  the  cable  with 
the  single  connector  goes  to  the  thermistor  mount,  while  the  connector  marked  with  an 
"A"  goes  to  "Channel  A"  on  the  power  meter  and  the  unmarked  connector  goes  to 
"Channel  B." 

4.  Depress  the  input  selector  switch  on  the  DVM  to  connect  the  rear  panel  input. 

5.  Turn  on  all  the  instruments.  The  output  of  the  Wavetek  8502A  calibrator  is  more  stable 
after  a 2-h  warmup,  rather  than  the  30  min  specified  by  the  manual.  The  2-h  warmup 
period  is  recommended  for  both  the  8502A  and  the  power  measurement  system.  Also, 
the  thermistor  mount  should  be  attached  to  the  calibrator  output  for  at  least  30  min  before 
making  the  measurement.  This  will  reduce  the  temperature  drift  of  the  mount,  improving 
the  measurement  accuracy.  Be  sure  to  note  the  serial  number  of  the  mount  selected. 
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2.2  Software  Installation 


The  software  includes  an  installation  program  that  will  create  a directory  and  copy  all  needed 
files  to  the  hard  drive.  The  drive  must  have  at  least  1 MB  of  free  space  and  TransEra  HTBasic 
3.0  or  higher  already  installed. 

1.  Turn  on  the  power  to  the  computer  and  allow  DOS  to  load.  At  the  DOS  prompt,  type 
CD\HTB3  8 6 (or  other  directory  where  the  BASIC  system  is  located)  and  press  ENTER. 
Then  type  HTB3 86C  and  again  press  ENTER.  At  this  point  HTBasic  should  be  loaded 
as  indicated  by  the  BASIC  soft  keys  appearing  at  the  bottom  of  the  screen. 

2.  Insert  the  disk  labeled  PM2  MEASUREMENT  SYSTEM  in  the  3.5-in  drive  and  type 
LOAD  "drive  : INSTALL" , 1 where  drive  is  the  name  of  the  drive  where  the  PM2 
MEASUREMENT  SYSTEM  disk  is  located;  for  example,  LOAD  "B : INSTALL" , 1 and 
press  ENTER.  Be  sure  to  type  the  quotation  marks  as  shown. 

3.  The  first  screen  lists  the  software  and  computer  requirements  and  asks  if  you  want  to 
continue.  Type  Y and  press  ENTER  to  continue  or  N and  press  ENTER  to  terminate 
the  installation. 

4.  The  name  of  the  source  drive  (drive  from  which  the  files  are  copied)  is  requested;  press 
ENTER  to  accept  the  default  (B : ) or  type  another  drive  letter  and  press  ENTER. 

5.  The  destination  drive  (drive  to  which  the  files  are  copied)  is  requested;  press  ENTER  to 
accept  the  default  (C : \)  or  enter  another  drive.  Note:  the  installation  program  will 
create  its  own  directory  named  NIST_PM2  on  the  destination  drive. 

6.  The  location  of  the  BASIC  system  files  is  requested:  press  ENTER  to  accept  the  default 
(C:  \HTB3  8 6)  or  enter  another  drive  and  directory.  Then  the  directory  NIST_PM2  is 
created,  and  the  program  and  support  files  copied. 

7.  The  program  asks  if  you  want  to  use  the  supplied  AUTOST  program.  It  will  activate  the 
IEEE  488  bus  card  and  the  system  printer,  and  then  load  and  run  the  measurement 
program.  The  AUTOST  program  includes  code  lines  as  described  below.  Type  Y and 
press  ENTER  to  use  the  supplied  AUTOST. 
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8.  Finally  you  will  be  asked  if  the  PC  has  the  Morse  KP  800/16  VGA  graphics  adapter,  and 
the  if  the  800x600  display  mode  is  desired.  Type  Y and  press  ENTER  to  use  the 
800x600  display  mode. 

9.  This  completes  the  software  installation.  Type  QUIT  and  press  ENTER  to  leave 
HTBasic  and  then,  if  you  have  HTBasic  version  3.0,  reboot  the  computer  (this  is 
necessary  to  avoid  an  out-of-memory  error  that  may  occur  when  you  try  to  run  the 
program). 

The  supplied  AUTOST  program  is  a modified  version  of  the  example  supplied  with  HTBasic. 
The  following  lines  in  the  example  program  have  been  changed: 

310  !LOAD  BIN  "GPIBN; BOARD  AT-GPIB"  ! NATIONAL  INST 
is  un-commented  (!  removed)  to  read: 

310  LOAD  BIN  "GPIBN; BOARD  AT-GPIB"  ! NATIONAL  INST 

730  LOAD  "DEMO",l 
is  commented  out  (!  added)  to  read: 

730  ILOAD  "DEMO",l 

If  the  your  PC  is  configured  differently  than  the  one  on  which  the  prototype  system  was  tested, 
additional  or  different  changes  may  be  required. 


2.3  Measurement  Software  and  Procedure 

To  run  the  program  follow  the  directions  for  starting  HTBasic  under  item  1 in  the  previous  sec- 
tion. If  the  supplied  AUTOST  has  been  installed,  the  measurement  program  will  load  and  run 
automatically.  Otherwise,  type  LOAD  "PWR_MTR2" , l and  press  ENTER  to  load  and  start 
the  program.  If  the  power  meter  or  the  DVM  is  not  turned  on,  the  program  will  report  it  can 
not  find  the  power  meter  at  address  713  or  the  DVM  at  address  722.  Pressing  ENTER  after 
each  statement  will  let  the  program  run,  but  measurements  can  not  be  made. 

The  remainder  of  this  section  describes  the  various  software  options  that  are  available.  The 
screens  and  menus  as  seen  on  the  CRT  are  shown  in  figures  2.1  through  2.9.  Numbered  soft 
keys,  corresponding  to  the  keyboard  function  keys,  are  along  the  bottom  of  the  menus.  For 
quick  reference,  a menu  tree  is  shown  in  appendix  A. 
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The  first  screen  displayed  by  the  program  is  shown  in  figure  2.1.  Additional  detail  on  each  item 
is  in  later  sections  of  this  chapter. 

Press  FI  to  change  the  thermistor  mount  to  be  used  in  the  measurement,  or  the  stored  data  (such 
as  after  a thermistor  mount  recalibration).  The  serial  number  of  the  selected  mount  is  shown. 

Press  F2  to  enter  the  serial  number  of  the  Wavetek  8502 A being  measured.  The  serial  number 
is  then  displayed  and  printed  with  the  measurement  result. 

Press  F3  to  change  the  number  of  repeated  measurements  to  be  averaged  in  a set  (at  least  6 to 
10  is  recommended).  The  present  setting  is  shown. 

Press  F4  to  see  instructions  on  how  to  operate  the  Wavetek  8502A  (turn  the  calibrator  output 
on  and  off). 

Press  F5  to  begin  the  measurement  set. 

Press  F10  to  exit  the  program. 


1 T R 2 

. 0 

MEASUREMENT  MENU  - - - 

a 

SELECT  MEASUREMENT  MOUNT 
(Hp  8478B,  S/N  2106A  24522) 

m 

INPUT  UAUETEK  SERIAL  NUMBER 
(S/N  PM20PGU  in  nenory) 

H 

CHANGE  ft  OF  MEASUREMENT  POINTS 
(Present  setting  = 6 ) 

a 

UAUETEK  OPERATING  INSTRUCTIONS 

m 

BEGIN  MEASUREMENT 

Q 

EXIT  PROGRAM 

rev  9311180920 


Figure  2.1.  Screen  display  of  the  measurement  menu. 
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2.3.1  Select  Measurement  Mount 


Figure  2.2  shows  the  screen  after  selecting  option  1 from  the  previous  menu.  Two  bolometer 
mounts  are  supplied  with  each  system.  The  calibration  data  (as  listed  in  the  NIST  report  of  cali- 
bration) for  both  mounts  is  stored  in  a file  called  "CALDATA"  that  is  read  when  the  program 
is  started. 

Press  FI  or  F2  to  select  the  active  mount. 


MOUNT  SELECTION  MENU  

Hp  8478B , S/N  2106A  24522 
Hp  8478B . S/N  2106A  24001 
Custon  Mount  or  Change  Attributes 
Load/Save  CALDATA  File 
Main  Menu 


Current  Selection  is  Hp  8478B,  S/N  2106A  24522 
Calibration  Factor  = .9926 

Calibration  Uncertainty  * .35 

Bef lection  Coefficient  = .0101 


Figure  2.2.  Screen  display  of  the  mount  selection  menu. 


Press  F3  in  the  Mount  Selection  Menu  (figure  2.2)  to  change  any  entries  in  the  CALDATA  file 
(for  a new  mount  or  for  the  existing  mounts  if  they  have  been  recalibrated). 

Figure  2.3  shows  the  screen  that  appears  after  pressing  F3.  You  can  change  any  of  the  four  data 
entries  (mount  serial  number,  calibration  factor,  calibration  uncertainty,  or  the  mount  reflection 
coefficient)  in  sequence.  If  there  is  no  change  for  a particular  entry,  just  press  ENTER,  and  the 
original  data  will  be  retained.  At  each  request  for  input  you  can  abort  the  process  and  return 
to  the  mount  selection  menu.  When  all  the  changes  have  been  entered,  you  are  asked  if  you 
want  to  permanently  save  them  to  the  CALDATA  file  and  if  the  data  is  for  mount  1 or  mount 
2. 


CURRENT  MOUNT 

Mode 1/Serial  Nunber:  Hp  8478B,  S/N  2106A  24522 
Calibration  Factor  = .9989 

Calibration  Uncertainty  in  Percent  = .38 

Reflection  Coefficient  = .0174 


Enter  Mount  Model/Serial  Nunber 
Hp  8478B,  S/N  2106A  24522 

H 

Figure  2.3.  Screen  display  for  changing  stored  calibration  data. 
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Figure  2.4  is  the  last  of  the  series  of  screens  that  appear  after  pressing  F3  in  the  Mount  Selection 
Menu.  It  asks  for  a path  and  file  name  for  saving  the  mount  data.  Note:  the  name  must  be 
"CALDATA"  for  the  file  to  load  automatically  when  the  program  is  started. 


Current/Neu  data  in  nenory 


Enter  path  and  nane  of  file  to  SPUE.  Enter  a blank  line  to  Exit. 
C:\NIST_PI12\CALDATA 


R 


Figure  2.4.  Screen  display  for  saving  the  CALDATA  file. 
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Press  F4  in  the  Mount  Selection  Menu  (figure  2.2)  to  load  or  save  a CALDATA  file. 

The  menu  changes  as  seen  in  figure  2.5.  If  "S"  is  entered,  the  data  presently  in  memory  for  the 
two  mounts  will  be  stored  in  CALDATA.  Again,  there  is  an  opportunity  to  change  the  path  or 
file  name  before  it  is  saved,  as  the  screen  shown  in  figure  2.4  is  repeated. 


- - - MOUNT  SELECTION  MENU  - - - 
H Hp  8478B , S/N  21060  24522 
H Hp  8478B,  S/N  21060  24001 
B Custon  Mount  or  Change  Ottributes 
Q Load/Save  C0LD0T0  File 
Q Main  Menu 

Current  Selection  is  Hp  8478B,  S/N  21060  24522 
Calibration  Factor  s .9926 
Calibration  Uncertainty  = .35 

Ref  lection  Coefficient  = .0101 

(L)oad  or  (S)aue  'C0LD0T0'.  Press  'ESC'  to  abort. 

R 


Figure  2.5.  Mount  selections  screen  after  choosing  the  fourth  item. 
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If  for  some  reason  it  is  necessary  to  restore  the  original  calibration  data,  the  initial  calibration 
reports  are  included  with  the  system,  and  the  data  could  be  re-entered.  As  an  added  precaution, 
a backup  version  of  the  original  CALDATA  file,  called  "CALDATA.ORG",  is  on  the  distribu- 
tion disk.  It  can  be  loaded  by  pressing  F4  in  the  Mount  Selection  Menu  (figure  2.2),  entering 
the  "L"  for  load,  and  then  the  file  name  as  shown  in  figure  2.6. 


Current/Neu  data  in  nGnory 


Enter  path  and  nane  of  file  to  LOAD.  Enter  a blank  line  to  Exit. 
C:\NIST_PM2\CALDATA.0RG 


R 


Figure  2.6.  Mount  selection  screen  when  loading  a CALDATA  file. 


2.3.2  Input  Wavetek  Serial  Number 

Pressing  F2  in  the  Measurement  Menu  (figure  2.1)  will  let  you  input  the  serial  number  of  the 
Wavetek  power  meter  being  calibrated.  The  serial  number  will  then  be  printed  on  the 
measurement  report  as  part  of  the  permanent  record. 
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2.3.3  Change  Number  of  Measurement  Points 


Pressing  F3  in  the  Measurement  Menu  (figure  2.1)  will  let  you  change  the  number  of  repeated 
measurements  made  during  the  calibration.  No  less  than  the  default  six  measurements  should 
be  made;  more  than  six  will  slightly  reduce  the  total  uncertainty  because  of  a smaller  standard 
uncertainty  with  additional  repeat  measurements. 

2.3.4  Wavetek  Operating  Instructions 

Pressing  F4  in  the  Measurement  Menu  (figure  2.1)  results  in  the  screen  that  appears  in  figure 
2.7.  It  gives  brief  instructions  for  manually  controlling  the  8502 A calibrator  output  based  on 
information  given  in  the  instrument’s  operating  manual.  The  four  numbered  steps  shown  on  the 
screen  should  be  carried  out  before  proceeding  with  the  measurement.  Press  F10  to  return  to 
the  main  menu. 


CONTROLLING  8502A  CALIBRATOR  OUTPUT 

Press  the  fol lowing  8502A  front  panel  control  kegs  in  the 
sequence  indicated: 

(l)-'CU'.  (2)-'l1enu\  (3)-'F3\  (4)-'Fl\ 

Then,  pressing  the  8502A  key  '7'  will  turn  the  calibrator 
output  ON,  and  pressing  the  8502A  keg  'CLEAR'  will  turn  the 
calibrator  output  OFF. 

For  nore  detail  see  'Calibrator  Output  Level  Test'  on  page  6-2 
of  the  8502A  nanual. 


CAUTION:  Do  not  press  any  UNITS  key  when  the  nount  is 
connected  to  the  calibrator.  This  will  cause  the 
calibrator  to  output  100  nld  which  night  danage  the  nount. 


mmm 


Figure  2.7.  Screen  display  of  operating  instructions  for  the  calibrator  output. 
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2.3.5  Begin  Measurement 


Pressing  F5  in  the  Measurement  Menu  (figure  2.1)  leads  to  the  screen  that  appears  in  figure  2.8. 
(Before  starting  the  measurement,  check  the  mount  serial  number  to  be  sure  the  mount  in  use 
is  the  one  shown  on  the  screen.)  Just  before  the  message  TURN  RF  ON  (PRESS  8 5 02A  KEY 
' 7 ' ) is  displayed,  the  computer  will  beep  once.  At  that  point  press  key  7 on  the  8502 A to 
turn  the  rf  on  and  wait  for  a pair  of  beeps  from  the  computer.  The  message  will  change  to 
TURN  RF  OFF  (PRESS  8502A  'CLEAR' ) . After  pressing  the  CLEAR  key  on  the 
8502A,  wait  until  a single  beep  sounds  again  before  pressing  key  7 to  begin  the  next 
measurement  in  the  set.  This  sequence  will  be  automatically  repeated  until  all  the  measurements 
making  up  the  set  have  been  completed.  As  indicated,  the  measurement  series  can  be  aborted 
by  pressing  the  ESCAPE  key. 


PUR.nTS  2.0 


MOUNT:  Hp  8478B.  S/N  2106A  24522 

POUER  METER:  UAUETEK  MODEL  8502A,  S/N  PM20PGU 


11:49:16  18  Nov  1993 


No . Power 
(nil) 


U1  Delta  U U1  Drift  Ref.  Offset 
(U)  (nU ) (uU/s)  (nU) 


1 


R 


Figure  2.8.  Screen  display  at  the  start  of  the  measurement. 
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When  the  desired  number  of  measurements  is  complete,  the  screen  shown  in  figure  2.9  is 
displayed.  The  upper  half  of  the  screen  shows  a summary  of  each  measurement  in  the  set  as 
explained  in  table  2.1  below.  The  final  results  are  displayed  on  the  lower  half  of  the  screen 
below  the  horizontal  dashed  line.  The  explanation  of  each  column  is  given  in  table  2.2. 

Press  FI  to  dump  this  screen  to  the  system  printer.  A more  detailed  report  is  also  available  and 
can  be  printed  or  sent  to  a file,  as  explained  in  the  paragraph  following  table  2.2. 


P UR  „ 

. M T R 

2.0  MEASUREMENT 

C 0 M P L E 

T E 

MOUNT:  Hp  8478B,  S/N  2106A  24522 
POUER  METER:  UiWETEK  MODEL  8502A, 

S/N  PM20PGU 

11:49:16 

18  Nov  1993 

No. 

Power 

Pur-1  nU 

U1 

Delta  U 

U1  Drift 

Ref . Of  f set 

(nU) 

(X) 

(U) 

(nU) 

(iiU/s) 

CnU) 

1 

0.99390 

-0.610 

2.249627 

44.290 

1.4 

-2.429 

2 

0.99474 

-0.526 

2.249636 

44.328 

0.7 

-2.429 

3 

0.99459 

-0.541 

2.249644 

44.320 

0.3 

-2.428 

4 

0.99427 

-0.573 

2.249646 

44.306 

0.1 

-2.428 

5 

0.99461 

-0.539 

2.249649 

44.321 

0.5 

-2.427 

6 

RESULTS 

0.99424 

-0.576 

2.249650 

44.304 

0.3 

-2.425 

AUG  PUR 
(nw) 

AUG-1  nU 

00 

MAX  DEU 
(X) 

STD  DEU  U/C  UNC  EXP  UNC 
C/.)  (X)  (X) 

0.99439 

-0.561 

♦0.036,-0.049  0.013  0.835  0.558 

Figure  2.9.  Screen  display  of  the  measurement  results. 
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Table  2.1.  Explanation  of  the  upper  part  of  the  measurement  screen 

Column 

Heading 

Explanation 

No. 

Number  of  the  power  measurement. 

Power 

Result  of  the  individual  power  measurement  in  mW. 

Pwr  - 1 mW 

Normalized  deviation  of  the  measured  power  from  1 mW,  percent. 

VI 

Power  meter  voltage  with  the  rf  off  (see  section  3.1). 

Delta  V 

Change  that  occurs  in  the  power  meter  voltage  when  the  rf  is  turned 

on. 

VI  Drift 

Drift  of  Vj  in  piV/s  that  occurred  from  the  beginning  of  the  measure- 
ment until  it  was  complete.  Note  that  if  the  drift  is  greater  than  10 
juV/s  the  measurement  should  be  repeated  after  waiting  a period  of 
time  for  the  mount  temperature  to  further  stabilize. 

Ref.  Offset 

The  compensation  element  channel  is  used  as  the  voltage  reference; 
this  column  shows  the  voltage  difference  between  the  measurement 
thermistor  channel  and  the  compensation  thermistor  channel  when  the 
rf  is  off. 

Table  2.2.  Explanation  of  the  results  section  of  the  measurement  screen 

Column 

Heading 

Explanation 

AVG  PWR 

Average  power  in  mW,  computed  from  the  measured  data  set. 

AVG  - lmW 

Percent  deviation  of  the  average  power  level  from  1 mW. 

MAX  DEV 

The  maximum  positive  and  negative  deviations  from  the  average. 

STD  DEV 

The  standard  deviation  of  the  mean. 

W/C  UNC 

Worst-case  uncertainty;  the  total  uncertainty  in  the  measurement  when 
all  components  are  simply  added. 

EXP  UNC 

Expanded  uncertainty;  the  RSS  combination  of  all  uncertainty  compo- 
nents multiplied  by  a coverage  factor  ( k ) of  two.  For  a discussion  of 
standard  and  expanded  uncertainty  see  section  4 and  reference  [1]. 
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Press  F3  in  the  measurement  results  screen  (figure  2.9)  to  print  a copy  of  the  detailed 
measurement  report  which  can  be  used  as  a permanent  record.  Press  F4  to  save  the  report  to 
a DOS  text  file  that  can  be  imported  into  a word  processor.  This  report,  which  is  not  displayed 
on  the  CRT,  shows  the  individual  measurements,  summarizes  the  results,  and  lists  the 
uncertainty  components.  Figure  2.10  is  an  example  of  the  report. 

The  top  section  of  the  report  essentially  duplicates  what  was  shown  in  the  results  screen  of  figure 
2.9. 

The  lower  section  of  the  report  contains  a table  listing  the  uncertainties  in  the  measurement. 
Each  uncertainty  component  discussed  in  section  4 is  shown,  followed  by  a pair  of  values.  The 
uncertainty  limits  column  contains  values  which  can  be  considered  the  traditional  systematic  and 
random  components  that  are  added  to  give  the  worst  case  sum.  The  standard  uncertainty  column 
contains  the  values  needed  for  the  method  of  expressing  uncertainty  in  measurement  recommend- 
ed by  the  CIPM  (International  Committee  for  Weights  and  Measures)  and  required  by  NIST  [1]. 
The  final  expanded  uncertainty  is  twice  the  square  root  of  the  sum  of  the  squares  (RSS)  of  the 
standard  uncertainties.  Section  4 and  reference  [1]  (also  listed  in  the  report)  give  more  detail. 
The  two  columns  make  available  a choice  of  uncertainty  expression  and  uncertainty  components 
to  meet  the  user’s  requirement. 
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MEASUREMENT  DATA 


FOR  POWER  METER:  WAVETEK  MODEL  8502A,  S/N  PM20PGV 

USING  MOUNT:  Hp  8478B,  S/N  2106A  24522  11:49:16  18  Nov  1993 


Power 

Pwr-1  mW 

VI 

Delta  V 

VI  Drift 

Ref.  Offset 

(mW) 

(%) 

(V) 

(mV) 

(fiV/s) 

(mV) 

1 

0.99390 

-0.610 

2.249627 

44.848 

1.4 

-2.429 

2 

0.99474 

-0.526 

2.249636 

44.328 

0.7 

-2.429 

3 

0.99459 

-0.541 

2.249644 

44.320 

0.3 

-2.428 

4 

0.99427 

-0.573 

2.249646 

44.306 

0.1 

-2.428 

5 

0.99461 

-0.539 

2.249649 

44.321 

0.5 

-2.427 

6 

0.99424 

-0.576 

2.249650 

44.304 

0.3 

-2.425 

MEASUREMENT  RESULTS 

The  mean  of  the  6 measurements  is  0.99439  mW  with  0.008  percent  standard  deviation 
of  the  mean.  The  maximum  deviation  from  the  mean  is  +0.036  and  -0.049  percent. 

The  mean  is  0.561  percent  less  than  1 mW. 

The  table  below  shows  the  values  of  the  major  uncertainty  components.  The  total 
uncertainty  is  expressed  as  both  the  worst  case  sum  and  the  expanded  uncertainty. 

For  a discussion  of  standard  and  expanded  uncertainty  see  NIST  Technical  Note  1297, 
"Guidelines  for  Evaluating  and  Expressing  the  Uncertainty  of  NIST  Measurement 
Results." 


Value  of  uncertainty  components  in  percent  at  1 GHz. 

Uncertainty  factor 

Uncertainty 

limits 

Standard 

uncertainty 

DVM 

0.033 

0.019 

Mount  calibration  factor 

0.350 

0.202 

Mismatch  (mount  reflection  coefficient  = 0.0101) 

0.113 

0.080 

Dual  element 

0.300 

0.173 

Random  effects  (standard  deviation  of  the  mean) 

0.039 

0.013 

Worst  case  sum 

0.835 

Combined  standard  uncertainty  (RSS) 

0.279 

Expanded  uncertainty  (coverage  factor  = 2) 

0.558 

Figure  2.10.  Sample  of  the  hardcopy  output. 
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3.  SYSTEM  DESCRIPTION 


3.1  Theory  of  Operation 

The  NIST  Type  IV  power  meter  is  not  a direct  reading  instrument.  An  external  precision  dc 
voltmeter  must  be  connected  to  the  power  meter,  and  the  power  calculated  from  the  voltmeter 
readings.  For  this  system,  the  microwave  power  P is  given  by 

P-^K-n2).  (3-D 

where  Vx  is  the  output  voltage  without  rf  power,  V2  is  the  voltage  with  rf  power,  is  the 
operating  resistance  of  the  mount,  and  Kb  is  the  mount  calibration  factor.  Note  that  the  power 
is  proportional  to  the  "bolometric  power,"  which  is  simply  the  change  of  the  mount  dc  bias 
power  as  rf  power  is  applied  and  removed. 

Equation  (3.1)  shows  that,  as  the  rf  power  becomes  small,  V2  approaches  V,.  Because  of  the 
uncertainty  "magnification"  that  occurs  in  the  computed  difference  of  two  nearly  equal  numbers, 
the  power  measurement  uncertainty  becomes  very  large  as  the  power  decreases.  The  solution 
to  this  problem  is  to  measure  the  difference  between  Vj  and  V2  directly.  This  requires  a 
reference  voltage  generator  (RVG)  which  is  set  nominally  equal  to  Vl  and,  in  effect,  stores  Vj. 

When  an  RVG  is  used,  the  expression  for  calculating  power  from  measured  voltages  becomes 

P=-l—(2Vl  - AV)AV,  (3.2) 

Kb  A) 

where  Vj,  R$,  and  Kb  were  previously  defined,  and  AV  is  the  change  in  the  power  meter  voltage 
when  rf  is  applied;  that  is,  Vj-V2.  In  providing  for  a first-order  correction  of  mount  drift,  the 
value  of  Vj  and  AV  are  estimated  by  assuming  linear  drift  and  taking  several  other  readings 
while  the  rf  is  off,  as  shown  in  figure  3.1. 

The  diagram  in  figure  3.1  depicts  the 
outputs  of  the  power  meter  and  RVG 
as  a function  of  time  while  the  rf  is 
cycled  on  and  off.  The  measurement 
sequence  of  five  voltage  and  time 
readings  used  to  calculate  the  power 
and  correct  for  the  mount  drift  is 
also  shown.  Note  that  the  reference 
voltage  generator  is  not  set  equal  to 
Vj,  nor  is  it  constant  with  time.  This 
is  because  it  is  convenient  to  use  the 
compensation  element  of  the  mount, 
biased  by  the  second  power  meter 
channel,  as  the  reference  voltage 
generator.  Thus  the  RVG  does  drift 


Figure  3.1.  Measured  power  meter  voltages  vs  time. 
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during  the  measurement,  but  this  change  is  also  corrected,  to  first  order,  by  the  measurement 
series. 


In  terms  of  the  measured  voltages,  the  values  to  be  used  in  eq  (3.2)  are  given  by 


vi  = vu  + 


h h 


r,  - 1, 

V 5 \) 


(VV~Vu) 


and 


( \ 

1 

II 

<3 

Vw  + 

h ~ h 

,r4  ~h, 

(VW~  Vm) 

(3.3) 


(3.4) 


3.2  Hardware 

The  system  block  diagram  is  shown  in  figure  3.2.  The  input  switching  to  the  digital  voltmeter 
(DVM)  is  done  with  the  multiplexer  internal  to  the  DVM.  The  controller  is  user  supplied.  The 
generic  specifications  for  the  instruments  are  given  in  appendix  B. 


DVM 


CONTROLLER 


2X 


Figure  3.2.  System  block  diagram. 
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The  internal  wiring  of  the  thermistor  mount  as  received  from  the  factory  is  shown  in  figure  3.3. 


Figure  3.3.  Original  mount  wiring. 


Figure  3.4  shows  the  internal  wiring  diagram  of  the  thermistor  mount  as  modified  for  this 
app;  cation.  The  mount  bias  connector  is  replaced  and  internal  wiring  changes  are  made.  These 
changes  provide  four-wire  connections  to  the  measurement  and  compensation  thermistors,  which 
eliminate  lead  and  connector  contact  resistance  errors.  Only  the  modified  mounts  can  be  used 
with  the  system. 


Figure  3.4.  Modified  mount  wiring. 
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Figure  3.5  is  a diagram  showing  the  physical  layout  of  the  pc  board  in  the  mount  with  the 
attachment  points  for  the  wires  leading  to  the  connector  and  the  thermistor  elements. 


BACK  SIDE 


Figure  3.5.  HP  8478B  thermistor  mount  pc  board  layout  with  modified  wiring. 
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Figure  3.6  is  the  wiring  diagram  for  the  cable  that  connects  the  mount  to  the  power  meter. 


CONNECTOR  A (MEASUREMENT  CHANNEL) 

+ SENSE 
- SENSE 
+ OVEN 
+ CURRENT 
- CURRENT 
+ TEMP 

- TEMP 
HEATER 

- OVEN 
SHIELD 


+ SENSE 
- SENSE 
+ OVEN 
+ CURRENT 
- CURRENT 
+ TEMP 

- TEMP 
HEATER 

- OVEN 
SHIELD 


CONNECTOR  B (COMPENSATION  CHANNEL) 

Figure  3.6.  Thermistor  mount  connecting  cable  wiring  diagram. 


+ SENSE 

- SENSE 

+ CURRENT 

- CURRENT 

NC 

+ SENSE 

- SENSE 

+ CURRENT 

- CURRENT 

NC 

SHIELD 
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Figure  3.7  is  a view  of  the  cable  end  of  the  connector  showing  the  pin-out.  The  specific 
connectors  used  are  listed  in  Table  3.1. 


Figure  3.7.  Connector  pin-out  (Male  cable 
connector  as  seen  from  cable  end). 


Table  3 . 1 . Connectors 

Connector  designation 

Connector  model  NO. 

Manufacturer 

Connectors  A,  B,  C 

FGG.2B.310.CNAD72Z 

Lemo  USA  INC 

P.O.  Box  11488 

Santa  Rosa,  CA  95406 

Connector  D 

EHG.2B.310.CNL 

3.3  Software 

A software  listing  is  included  as  appendix  C.  Comments  at  the  beginning  of  the  code  define  the 
variables  (and  their  location)  that  one  might  want  to  change  for  other  applications  such  as  a 
different  power  level.  However,  if  changes  are  made,  the  user  is  responsible  for  the  results. 
NIST  cannot  support  modified  code. 
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4.  UNCERTAINTY  ANALYSIS 


The  uncertainties  associated  with  the  measurement  are  grouped  in  two  categories  according  to 
the  method  used  to  estimate  their  numerical  values  [1].  The  Type  A evaluations  of  standard 
uncertainty  are  based  on  statistical  analysis  of  measurement  results.  The  Type  B evaluations  of 
standard  uncertainty  are  based  on  other  methods,  such  as  manufacturer’s  instrument  specifica- 
tions, measurement  results,  and  scientific  judgement.  The  standard  uncertainties  obtained  by 
either  the  Type  A or  the  Type  B evaluations  are  the  equivalent  of  a standard  deviation. 

The  factors  listed  below  contribute  to  the  total  measurement  uncertainty  and  are  included  in  the 
analysis.  The  standard  uncertainty  for  each  component  is  determined  by  either  a Type  A or  a 
Type  B evaluation  as  appropriate. 

1.  Uncertainty  in  the  dc  voltage  measurements. 

2.  Uncertainty  in  the  thermistor  mount  effective  efficiency  calibration. 

3.  Mismatch  uncertainty  due  to  the  source  (8502 A calibrator  output)  reflection  coefficient 
and  the  thermistor  mount  reflection  coefficient. 

4.  The  "dual  element  substitution  error"  associated  with  the  coaxial  thermistor  mount. 

5.  Random  effects. 

6.  Type  IV  power  meter  uncertainty.  There  are  four  sources  of  possible  error  internal  to 
the  power  meter.  They  are  the  reference  resistors,  the  operational  amplifier  open  loop 
gain,  input  offset  voltages,  and  input  bias  currents.  The  Type  IV  error  analysis  [2] 
indicates  that  all  of  them  are  negligible  compared  to  the  four  factors  listed  above. 

The  first  five  of  these  items  are  considered  individually  in  the  following  sections.  An  example 
of  the  results  is  summarized  in  a concluding  table. 

4.1  Voltmeter  Uncertainty 

The  effect  of  uncertainty  in  the  individual  voltmeter  readings  can  be  determined  by  taking  the 
total  differential  of  the  expression  for  power,  eq  (3.2), 


d P = — — \ A V dV.  + (V.  -A  V)  dA  V] 

**  V 111  ’ ] 


(4.1) 


Let 


(4.2) 


and 


(4.3) 


23 


Thus,  in  terms  of  the  measured  parameters, 


and 


d^i  = 


1 - Tlf)  6V, 


T 

1\f  OKi / 


(4.4) 


dAK=  6K2X  + (1  - Tlf)  6VlXi  - T2f  6VlXf. 


(4.5) 


The  quantities  bVu,  bVlf,  bVlXi,  bVXXf,  and  bVjx,  are  the  uncertainties  in  the  measured  values  of 
Vu,  Vlf,  VlXi,  VlXf,  and  V^.  These  uncertainties  in  the  measured  voltages  are  based  on  the 
voltmeter  specifications,  which  are  usually  given  in  two  parts  as  a fraction  of  reading  term,  a, 
and  a fraction  of  full  scale  term  /?.  The  general  expression  for  the  voltmeter  uncertainty  is  given 
by 


6V  a Vreading  + P VfitUscale  ■ 


(4.6) 


Figure  4.1  shows  the  uncertainty  in  power  measurement  as  a function  of  power  level  near  1 
mW,  as  calculated  using  the  above  procedure  for  the  voltmeter,  power  meter,  and  measurement 
configuration  used  in  this  system.  In  the  calculations,  the  signs  of  the  independent  terms  are 
chosen  to  give  the  maximum  contribution  to  the  total  uncertainty.  This  uncertainty  is  obtained 
from  a Type  B evaluation  and  has  a rectangular  distribution. 


Figure  4.1.  Power  measurement  uncertainty  from  the  DVM. 


24 


4.2  Uncertainty  in  Thermistor  Mount  Effective  Efficiency 

This  is  the  uncertainty  of  the  NIST  thermistor  mount  calibration.  The  NIST  calibration  also 
gives  a value  for  the  mount  calibration  factor  Cf,  which  is  the  factor  used  in  this  measurement 
rather  than  effective  efficiency  alone.  It  is  defined  in  the  next  section.  The  values  listed  on  the 
report  of  calibration  will,  of  course,  be  constant  for  any  given  mount,  until  the  unit  is 
periodically  recalibrated.  This  uncertainty  is  based  on  a Type  B evaluation  and  has  a 
rectangular  distribution. 


4.3  Mismatch  Uncertainty 


The  net  power  delivered  to  a termination  by  a source  is  given  by 


P.  = Pn 


i - 1 rf  |2 
|i  - rg  rr  |2  ’ 


(4.7) 


where  P0  is  the  power  the  source  would  deliver  to  a nonreflecting  termination,  is  the 
generator  reflection  coefficient,  and  T,  is  the  termination  reflection  coefficient.  Ideally,  the 
calibrator  should  deliver  a net  power  of  1 mW  to  the  power  detector  being  calibrated,  but  that 
can  be  accomplished  only  if  the  complex  reflection  coefficients  of  the  power  detector,  generator, 
and  calibrating  thermistor  mount  are  known,  which  is  generally  not  the  case.  Assuming,  then, 
that  the  calibrator  output  specification  is  the  power  delivered  to  a nonreflecting  load  the 
measured  output  is  given  by 


P0 


pm  l1  - w2 

% 1 - lrm  I2 


(4.8) 


where  Pm  is  the  bolometrically  measured  power,  rjm  is  the  effective  efficiency  of  the  thermistor 
mount,  Tg  is  the  generator  reflection  coefficient,  and  Tm  is  the  thermistor  mount  reflection 
coefficient.  The  denominator  of  eq  (4.8)  is  the  mount  calibration  factor 


so  eq  (4.8)  becomes 


c>  = nm(i  - lrml2)> 


(4.9) 


(4.10) 


The  value  of  Tm  has  been  measured  during  the  NIST  calibration,  but  only  an  upper  limit  to  the 
magnitude  of  T?  is  known  (from  the  source  return  loss  specification).  Only  the  limits  to  the  term 
involving  the  reflection  coefficients  are  known.  Thus, 


(i  - lr!llrJ)2  s 1 1 - r,rj!  £(i  + |rj|r„|)2, 
so  P0  is  also  only  known  within  the  limits 

- lrsMrml)2  * *0  * tt(1  + irjirj)2. 

S S 


(4.11) 


(4.12) 
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This  uncertainty  in  P0  is  the  mismatch  uncertainty  and  its  relative  value  is  given  to  first  order 
by 

±2|rg||rj.  (4.13) 

The  return  loss  specification  on  the  calibrator  output  is  greater  than  25  dB,  which  results  in  a 
value  for  | T J of  < 0.056.  Since  value  of  | Tm  | is  different  for  each  thermistor  mount,  the 
mismatch  uncertainty  is  calculated  for  each.  This  uncertainty  is  based  on  a Type  B evaluation 
and  has  a U-shaped  distribution  [3]. 


4.4  Dual-Element  Error 

The  power  detector  is  a dual-element  coaxial  thermistor  mount.  Dual-element  bolometer  units 
are  nonlinear  with  power  level  as  a result  of  a dc-rf  substitution  error  that  arises  because  the  two 
elements  are  not  identical  [4].  The  magnitude  of  the  error  is  different  for  each  mount.  The 
error  is  of  concern  because  the  measurement  is  being  made  at  1 mW,  while  the  NIST  calibration 
of  mount  efficiency  is  done  at  10  mW.  The  only  way  to  determine  the  error  magnitude  is  by 
direct  measurement,  which  is  difficult  at  best. 

Several  methods  were  tried,  but  all  had  one  or  more  deficiencies  in  giving  a completely  accurate, 
self-consistent  determination.  The  problem  is  the  effect  is  comparable  to  the  noise,  especially 
at  1 mW.  However,  the  different  methods  did  give  results  in  general,  if  not  exact  agreement. 
The  results  reported  here  are  from  measurements  on  20  mounts  using  a six-port  reflectometer 
calibrated  at  10  mW.  The  effective  efficiency  of  each  mount  was  measured  at  10  mW  and  again 
at  1 mW  without  disconnecting  the  mount. 

The  differences  between  the  effective  efficiencies  at  the  two  powers  for  the  sample  of  20  mounts 
is  used  to  make  inferences  about  the  differences  of  the  entire  population  (80  mounts).  A normal 
probability  plot  indicated  the  data  can  be  considered  normal.  The  two-sided  tolerance  interval 
[5]  for  the  differences  is  [-0.00269,  0.00305].  This  interval  should  include  99  percent  of  the 
population  with  95  percent  confidence.  Making  the  interval  symmetric  about  0 [-0.003,  0.003] 
will  still  include  at  least  99  percent  of  the  population  with  95  percent  confidence.  This 
uncertainty  is  based  on  a Type  B evaluation  and  is  assumed  to  have  a rectangular  distribution. 


4.5  Random  Effects 

The  measurement  is  repeated  a minimum  of  six  times.  The  standard  deviation  of  the  mean  of 
the  measurement  set  is  the  uncertainty  component.  This  uncertainty  is  based  on  a Type  A 
evaluation  and  has  a normal  distribution. 


4.6  Expanded  Uncertainty 

Table  4. 1 shows  how  the  contribution  of  each  uncertainty  component  is  converted  to  a standard 
uncertainty.  Again,  definitions  for  the  variables  and  terms  used  are  found  in  reference  [1].  The 
numbers  in  the  table  come  from  the  sample  measurement  detailed  in  section  2.  The  components 
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used  in  the  worst  case  total  shown  in  figure  2.10  are  the  values  from  the  half- width  interval 
column  except  for  the  random  effects.  The  value  of  the  random  component  for  the  worst  case 
total  is  three  times  the  standard  deviation  of  the  mean. 


Table  4.1.  Value  of  uncertainty  components  in  percent 

Uncertainty  factor 

Evaluation 

type 

Half-width 
interval  (a) 

Distribution 

Conversion 

formula 

Standard 

uncertainty 

DVM  and  power  meter 

B 

0.034 

Rectangular 

Uj  = a/y/3 

0.020 

Mount  calibration 

B 

0.380 

Rectangular 

Uj  = ah/3 

0.219 

Mismatch 

B 

0.195 

U-shaped 

Uj  = ah/l 

0.138 

Dual-element 

B 

0.300 

Rectangular 

Uj  = ah/3 

0.173 

Random  effects 

A 

- 

Normal 

- 

0.008 

Combined  standard  uncertainty  (RSS) 

0.312 

Expanded  uncertainty  ( k = 2) 

0.626 
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APPENDIX  A.  Software  Menu  Tree 


The  numbered  entries  are  menu  soft-key  labels  where  the  numbers  correspond  to  function  keys, 
except  for  0 which  is  function  key  10  (F10). 


1 MOUNT- 


-r-  1 MOUNT  ONE 

- 2 MOUNT  TWO 

- 3 CUSTOM  MOUNT 


— Enter  Mount  Model/Serial  Number  — | 

Enter  Mount  Calibration  Factor  — | 

Enter  Calibration  Uncertainty  in  Percent — | 

Enter  Mount  Reflection  Coefficient  — | 

Permanently  save  these  changes  to  BDAT  file 
CALDATA  ? 


^ Enter  1 to  save  as  mount  one,  2 to  save  as 

mount  two,  or  'ESC'  to  abort 


(Y)es  — 
(N)o 

1 

2 


L-  ESC 


Enter  path  and  name  of  file  to 
SAVE  Enter  blank  line  to  exit 

Enter  path  and  name  of  file  to 
SAVE  Enter  blank  line  to  exit. 


- 4 LOAD  or  SAVE 


(L)oad  or  (S)ave  'CALDATA'  Press  'ESC' 
to  abort 


(L)oad Enter  path  and  name  of  file  to 

LOAD.  Enter  blank  line  to  exit. 

— (S)ave  Enter  path  and  name  of  file  to 

SAVE  Enter  blank  line  to  exit 

- ESC 


L 0 MAIN  MENU 


2 SERIAL  NO 


WAVETEK  SERIAL  NUMBER  ? 


3 NO  POINTS 


NUMBER  OF  MEASUREMENT  POINTS  ? 


4 HELP 


1 MAIN  MENU 


5 MEASURE 


t-  TURN  RF  ON/OFF  (Measurement  loop) 1-  1 DUMP  SCREEN 

L ESC  (To  abort  measurement)  -2  PRINT  REPORT 

-3  REPORT  TO  FILE 
- 0 MAIN  MENU 


Enter  path  and  name  of  output  file 


0 EXIT 
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APPENDIX  B.  Instrument  Specifications 


1.  Digital  voltmeter:  5x/i  digit  resolution;  3 V dc  range  with  0.007  percent  of  reading  and 
0.0007  percent  of  full  scale  accuracy;  300  mV  dc  range  with  0.012  percent  of  reading 
and  0.001  percent  of  full  scale  accuracy;  IEEE  Std-488  bus;  optional  integrated  reed 
relay  multiplexer. 

2.  Multiplexer:  integrated  with  the  DVM  (or  separate  unit);  minimum  six  single-pole, 
single-throw  contacts;  maximum  thermal  offset  of  3 /xV;  IEEE  Std-488  bus. 

3.  Dual  NIST  Type  IV  power  meter  (or  two  single  units). 

4.  Coaxial  thermistor  mount:  type  N male  connector;  temperature  compensation 
thermistors;  dc  bias  power  = 30  mW;  maximum  | T | < 0.025;  NIST  calibration  at  1 
GHz;  modified  for  a 4- wire  connection  to  both  the  measurement  thermistors  and  the 
compensation  thermistors. 

5.  Computer  controller:  programmable  in  Hewlett  Packard  Work  Station  Basic  version  5.13 
("Rocky  Mountain  Basic"),  or  TransEra  "HTBasic"  with  IEEE  Std-488  capability;  IEEE 
Std-488  bus. 
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APPENDIX  C.  Software  Listing 

! NIST-PM2  Power  Measurement  System  Version  2.0 
File$="PWR_MTR2"  ! Started  : 9001111632 /FRC 

Rev$="9312171312"  ! NTL/FRC/PGV 


RE -STORE  " PWR_MTR2 " 

! ! ! 

! US  DEPARTMENT  OF  COMMERCE 

! NATIONAL  INSTITUTE  OF  STANDARDS  AND  TECHNOLOGY 

! MICROWAVE  METROLOGY  GROUP 

! 325  BROADWAY 

! BOULDER,  CO  80303-3328 


NOTES : 

9311151100 

9311110930 

9310251015 

9310220905 

9310220825 


Added  Escape  key  support  (setup,  update) . PGV 
Added  keyboard  & knob (mouse)  trapping  in  RF  and  MEAS  sub's 
Added  error  trapping  for  PM  & DVM  now  works  under  HTB  3.2 
Load  or  Save  'CALDATA'  file  under  setup  menu 
Automatic  backup  of  CALDATA  file. 

Loads  new  CALDATA  file  (must  be  bdat) . 

Now  fully  functional  under  HTBasic  4.0 
Added  print  report  to  DOS  ASCII  file  (hardcopy) 

Now  supports  bdat  file  CALDATA.  This  file  stores  the 
calibration  data  for  the  two  mesurement  mounts  used  with  this  system 
(PM2 ) . This  file  must  be  in  the  current  directory  during  program, 
execution . 

Cleaned  up  code  and  squashed  bugs . 

Print  measurement  results  in  text/table  format  to  PRT  on 
parallel  port  (#10)  . 

Modified  for  use  with  Epson  FX-86e/FX-800  compatible 
g.,  Panasonic  KX-P1180  9-pin  printer).  May  work  with  an 
Epson  LQ  printer  [untested]).  Screen  resolutions  of  640x480  or 
800x600  are  sensed  automatically.  PGV 
Written  with  HTBasic  3.2  ;PGV 


9310211400 

9310201740 

9309301445 


9308260845 

9308201530 


9308170735 
printer  (e 


! This  program  attempts  to  load  the  following  data  file  upon  execution: 
! CALDATA 

! Errors,  Select_v,  Dvm_init,  Pm_init,  Ke_199  defined  for  use  with: 

! Keithley  199  DMM/Scanner 

! Arbiter  1096A  Dual  Type  IV  Power  Meter 

! This  program  measures  the  1 mW  calibrator  output  of  the  Wavetek 
! model  8501A  peak  power  meter. 

! This  version  measures  Vl  and  delta  V with  the  compensation  element 
! used  as  a voltage  source  (RVG)  to  offset  the  DVM.  It  also  calculates 
! the  measurement  uncertainty. 

! Total  measurement  uncertainty  components  include: 

! Mount  calibration  factor, 

! Calculated  mismatch  uncertainty  for  the  source  ( | Gamma | <»0 . 056) 

! and  the  mount , 

! Dual  element  uncertainty, 

! The  DVM  and  Type  IV  error  contributions. 

! INSTRUMENTS  CONTROLLED:  ADDRESS 

! 1.  Keithley  199  DMM/Scanner  722 

! 2.  Epson  FX  compatible  printer  10  (PRT) 

! 3.  Arbiter  1096A  Type  IV  PM  713 

! DESCRIPTION  OF  PRINCIPAL  VARIABLES  IN  LABELED  COMMON: 


! The  following  are  in  the  COMmon  labeled  "/Dvm/": 

! 

! **  "Dvm_name$"  - The  DVM  identifier  (ie,  K199) 

I * "po"  - Power  level  in  milliwatts.  The  measurement  results  are 

! compared  with  this  value.  Default  setting  is  1 mW. 

! 

I * «ro"  - Mount  operating  resistance  in  ohms.  It  is  normally  200 

! ohms  for  a coax  mount  and  may  be  either  100  or  200  ohms 

! for  a waveguide  mount.  Default  setting  is  200  ohms. 

! * "A1-A5"  - Fraction  of  reading  error,  for  each  DVM  range 

! * "B1-B5 " - Fraction  of  full  scale  error,  for  each  DVM  range 

! 

! * "R1-R5"  - Full  scale  DVM  ranges  available 


The  following  are  in  the  COMmon  labeled  "/Mount/": 

♦+  "Mount$"  - Bolometer  mount  identifier  for  active  mount 
(manufacturer,  model,  and  serial  number). 

♦+  "Cf"  - Mount  calibration  factor  as  measured  by  NIST.  This  value 
must  be  changed  after  mount  replacement  or  recalibration. 


! 


The  following  are  in  the  COMmon  labeled  "/Errs/": 

"Cfu"  - Total  quoted  uncertainty  of  the  NIST  mount  calibration 
factor. 

"Mmu"  - Calculated  mismatch  uncertainty. 

"Deu"  - Added  uncertainty  for  dual -element  error. 

"Dp"  - Power  uncertainty  due  to  DVM. 

"Gm"  - Mount  reflection  coefficient  magnitude. 


The  following  is  in  the  COMmon  labeled  "/Wavetek/": 
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1610 
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1660 

1670 
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1710 

1720 

1730 

1740 
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•1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900! 

1910! 

1920! 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 


"Sn$"  - records  the  serial  number  of  the  Wavetek  meter 

being  measured.  It  can  be  input  before  the  measure- 
ment from  an  item  on  the  initial  menu. 


! CHANGING  INITIAL  VALUE  OF  VARIABLES 

! * These  variables  are  initally  defined  in  the  subprogram  "Set_up" . 

! To  change  them,  move  to  the  subprogram  by  executing  "EDIT 

! Set_upn . Change  the  values  as  needed  and  "Re-store"  the  program 

! if  the  changes  are  to  be  permanent. 

! ♦+  [These  variables  are  stored  in  the  bdat  file  CALDATA  and  are 
! j called  from  the  subprogram  "Set_up" . To  change  them  from  the 

! I main  menu,  choose  option  1 (Select  measurement  mount)  . From 

! j the  setup  menu  choose  option  3 (Change  attributes)  and  follow 

! | the  prompts  to  change  and  save  the  data  to  the  file  CALDATA. 

! **  Dvm_name$  is  defined  in  the  subprogram  "Ke_199".  If  a different 

! DVM  is  used,  the  subprogram  Ke_199  must  be  replaced  by  a similar 

! module  for  the  new  DVM.  Follow  the  pattern  of  SUB  Ke_199.  The 

! corresponding  CALL  statement  must  also  be  changed.  The  SUB 

! |Dvm_init  contains  the  DVM  driver,  which  must  be  changed. 

! [program.  Use  the  manufacturer's  specifications  for  the  new  DVM. [ 

! MAIN  PROGRAM 


Main:  ! 

OPTION  BASE  1 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 , A5 , B1 , B2 , B3 , B4 , B5 , R1 , R2 , R3 , R4 , R5 
COM  /Dvm/Dvm_name$ [40]  ! DVM  ID 

COM  /Errs/Dp , Vic , Vli , Vlf , Vlxi , Vlxf , Vlx , V2x , Tlf ac , T2f ac , Cf u , Mmu , Deu , Dpu 
COM  /Errs/Gm, Scf u , Smmu , Sdeu , Sdpu , Wc_unc , Cs_unc , Ex_unc 
COM  /Mount /Mount $ [40] ,Cf,Defm  ! Mount  ID 
COM  /Wavetek/Sn$ [7]  ! Wavetek  serial  number 

COM  /Hardcopy/Tdate$ [40]  ! Time  and  date  of  measurement 

COM  /Harddata/Pdata (100, 7) , Pres (7, 1)  ! Measurement  data  and  results 

COM  /Cal da t a /Mount 1$ [40] ,Mount2$ [40] , Cf 1, Cful , Gml, Cf 2 , Cfu2 , Gm2 


! 


! 


Power  Meter/DVM  availability 
Power  measurement  data 
Default  no.  of  measurements  (<*100) 
Power  meter  available  if  =1,  else,  0 
! DVM  available  if  =1,  else,  0 
! Reset  GPIB 
! Turn  PRT  ALL  off 
! Turn  on  Nimitz  style  softkeys 
Sys jprty » VAL (SYSTEMS ("SYSTEM  PRIORITY"))  ! Determine  system  priority 

Lcl_prty*Sys_prty+l  ! Set  local  priority  higher  for  ON  KEY 

ON  INTR  7,Lcl_prty  CALL  Pm_init  ! If  power  meter  error  (for  SRQ) 

GINXT 

PLOTTER  IS  CRT, "INTERNAL" /COLOR  MAP 


COM  /Init/Pm_avail , Dvm_avail 
REAL  P(lOO.l) 

Num_meas«6 
Pm_avail=l 
Dvm_avail*l 
RESET  7 
CONTROL  2,1/0 
KBD  CMODE  ON 


PRINTER  IS  CRT 
Crt_id$ -SYSTEMS ("CRT  ID") 

KEY  LABELS  PEN  5 
KBD  LINE  PEN  4 
CALL  Set__up  (0) 

CALL  Pm_init 
CALL  Ke_199 
CALL  Dvm_init 
Top:  LOOP 

CALL  Menul (Num_meas , Quit , Rev$ ) 

IF  Quit  THEN  GOTO  Quit 
REDIM  P(Num_meas,  1) 

CALL  Hdr 

CALL  Measloop (Num_meas, P (*) , Esc) 
IF  lsc-1  THEN  Top 
CALL  Errors 
CALL  Stats (P(*) ) 

CALL  Menu2 (Num_meas , P0 ) 

END  LOOP 

Quit:  CLEAR  SCREEN 
KEY  LABELS  ON 
END 


Make  CRT  output  device 
! Determine  the  no.  of  CRT  columns 
! Cyan 
! Yellow 

! For  mount  & measurement  parameters 
! Arbiter  1096A  initialization 
! Get  DVM  parameters 
! Keithly  199  initialization 


! 

! First  user  menu 
! Terminate 
! Redimension 
! Screen  header 

! Start  Measurement  loop 

! Calculate  errors 

! Calculate  the  statistics  of  the  run 
! Post  print  options 

! Have  a nice  day!  :-) 


SUB 


PROGRAMS 


Set_up:  SUB  Set_up(Cp)  ! Initialize  mount  parameters. 

! Cp»0  Load  default  mount  spec's 
! Cp»l  User  Select  mount  spec's 

OPTION  BASE  1 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 , A5 , B1 , B2 , B3 , B4 , B5 . R1 , R2 , R3 , R4 , R5 
COM  /Dvm/Dvm_name$ [40]  !DVM  ID 

COM  /Errs/Dp , Vic , Vli , Vlf , Vlxi , Vlxf , Vlx, V2x, Tlf ac , T2 f ac , Cf u , Mmu , Deu , Dpu 

COM  /Errs /Gm, Scf u , Smmu , Sdeu , Sdpu , Wc_unc , Cs_unc , Ex_unc 

COM  /Caldata /Mount 1$ [40] ,Mount2$ [40] , Cf 1 , Cful, Gml , Cf 2 , Cfu2 , Gm2 


COM  /Mount /Mount  $ [40] , Cf , De  f m 
Execution:  IF  Cp»0  THEN 

CALL  Mount_data ( 1 , " CALDATA" ) 

IF  Defm-0  THEN  GOSUB  Mount 1 

IF  Defm=!  THEN  GOSUB  Mount2 

Deu* . 30 

R0*200 

P0«1.0 


P0*DROUND ( P0 , 2 ) 
END  IF 

User:  IF  Cp=l  THEN 


! Mount  ID 
! 

! Read  mount  data  from  file  CALDATA 
! Make  mount  one  the  default  mount 
! Make  mount  two  the  default  mount 
! Uncertainty  for  dual  element  error 
! Mount  operating  resistance  in  ohms 
! Comparison  power  in  mW.  Note  that 
! the  following  line  limits  this  set- 
! ing  to  a 0.1  mW  resolution. 

! Limit  P0  to  1 place  beyond  decimal 

! User  enters  mount  data 
Sys_prty*VAL  (SYSTEM?  ("SYSTEM  PRIORITY"))!  Determine  system  pr....rity 


Lcl_prty*Sys_prty+l 
M_f lag=l 
USER  1 KEYS 
FOR  N=0  TO  19 
ON  KEY  N LABEL 
NEXT  N 

ON  KEY  0 LABEL  " 

ON  KEY  1 LABEL  " 

ON  KEY  2 LABEL  " 


Set  local  priority  higher  for  Ox*  KEY 
To  write  menu 
1st  set  of  soft  keys 
Clear  keys 
GOTO  Top  ! Default  destination 


! 


! 


MOUNT  ONE 
MOUNT  TWO 


",Lcl_prty  GOSUB  Mountl 
,Lcl_prty  GOSUB  Mount2 


CUSTOM  MOUNT  " , Lcl_prty  GOSUB  Custom 
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ON  KEY  3 LABEL  " LOAD  or  SAVE  " , Lcl_prty  GOSUB  Caldata_io 
ON  KEY  9 LABEL  " MAIN  MENU  " , Lcl_prty  GOSUB  Nochange 
Top:  LOOP  ! Wait  for  input 

IF  M_f lag=l  THEN  GOSUB  Menu 
END  LOOP 

Menu:  CLEAR  SCREEN 

STATUS  1,13 /Rows  ! Get  CRT  height 

KEY  LABELS  ON 
PEN  6 

IF  Rows >31  THEN  CLIP  15,85,35,87  ! 800x600  displays 
IF  Rows<3 1 THEN  CLIP  20,102,22,80  ! 640x480  displays 
FRAME 

PRINT  TABXY(21, 8) , CHR$ (136) - - MOUNT  SELECTION  MENU  - - -n&CHR$(138) 

PRINT  TABXY (20, 10) ,CHR$ (129) &"  1 "&CHR$ (128) &"  "&Mountl$ 

PRINT  TABXY (20 , 12 ) , CHR$ ( 129 ) &"  2 " &CHR$ ( 128 ) &"  "&Mount2$ 

PRINT  TABXY (20,14) , CHR$ ( 129 ) &"  3 " &CHR$ ( 128 ) &"  Custom  Mount  or  Change  Attributes" 

PRINT  TABXY(20, 16) , CHR$ (129) &"  4 " &CHR$ ( 12 8 ) &"  Load/Save  CALDATA  File" 

PRINT  TABXY(20, 18) , CHR$ (129) &"  0 " &CHR$ ( 12 8 ) &"  Main  Menu" 

PRINT  TABXY (15,20) , CHR$ ( 137 ) &" Current  Selection  is  "&Mount$ 

PRINT  TABXY (15, 21) , "Calibration  Factor  = ";Cf 
PRINT  TABXY (15, 22) , "Calibration  Uncertainty  = ";Cfu 
PRINT  TABXY (15, 23) , "Reflection  Coefficient  = " ;Gm,CHR$ (138) 

M_f lag=0 
RETURN 

Mountl:  Mount $=Mountl$ 

Cf=Cfl 
Cfu=Cful 
Gm=Gml 

Mmu=200* . 056 *Gm 

Defm=0 
M_f lag=l 
RETURN 

Mount2:  Mount$=Mount2$ 

Cf «Cf 2 
Cf u=Cfu2 
Gm*Gm2 

Mmu»200* . 056 *Gm 

Defm=l 
M_f lag=l 
RETURN 

Custom:  KEY  LABELS  OFF 
CLEAR  SCREEN 
PRINT  TABXY (10, 10) , "CURRENT  MOUNT" 

PRINT  TABXY (10, 12) , "Model /Serial  Number:  ";Mount$ 

PRINT  TABXY  (10, 14)  , "Calibration  Factor  « ",-Cf 

PRINT  TABXY (10, 16)  , "Calibration  Uncertainty  in  Percent  * ",-Cfu 
PRINT  TABXY (10, 18) , "Reflection  Coefficient  - ";Gm 
OUTPUT  2;Mount$;CHR$ (255) &"H"; 

LINPUT  "Enter  Mount  Model/Serial  Number" , Mount $ 

PRINT  TABXY (10, 12) , "Model /Serial  Number:  ";Mount$," 

OUTPUT  2 USING  , Z . DDDD" ; Cf 

INPUT  "Enter  Mount  Calibration  Factor" , Cf 

PRINT  TABXY (10, 14) , "Calibration  Factor  - " ;Cf , CHR$ (128) 

OUTPUT  2 USING  "#,Z.DD";Cfu 

INPUT  "Enter  Calibration  Uncertainty  in  Percent",Cfu 

PRINT  TABXY (10. 16) , "Calibration  Uncertainty  in  Percent  - " ;Cfu, CHR$ (128) 

OUTPUT  2 USING  "# , Z . DDDD" ;Gm 

INPUT  "Enter  Mount  Reflection  Coefficient  = ",Gm 

Mmu=200* . 056*Gm  ! Recalculate  mismatch  factor  uncert . 

PRINT  TABXY (10, 18) , "Reflection  Coefficient  - " ;Gm, CHR$ (128) 

BEEP 

ON  KNOB  1 GOSUB  Mouse 
ON  KBD  GOSUB  Keytest 

DISP  CHR$ (136) &" Permanently  save  these  changes  to  BDAT  file  CALDATA?  ("&CHR$ (138) &"Y"&CHR$ (136) &") es  or 
("&CHR$ (138) &"N"&CHR$ (136) &")o" 

LOOP 


! Mount  1 

! Mount  calibration  factor 
! Mount  calibration  uncertainty  in  % 
! Mount  reflection  coefficient 
! Mismatch  factor  uncertainty  in  % . 

! Generator  refl.  coeff.  <=0.056 
! Remember  mount  selection 


! Mount  2 

! Mount  calibration  factor 
! Mount  calibration  uncertainty  in  % 
! Mount  reflection  coefficient 
! Mismatch  factor  uncertainty  in  %. 

! Generator  refl.  coeff.  <«0.056 
! Remember  mount  selection 


! Custom  mount  data  or  change  value 


Ans$«KBD$ 

EXIT  IF  UPC$ (Ans$) ="Y"  ! Yes 

EXIT  IF  UPC$ (Ans$) ="N"  ! No 

EXIT  IF  Ans$-CHR$ (27)  ! Escape 

END  LOOP 
OFF  KBD 
OFF  KNOB 

IF  UPC$ (Ans$) ="Y"  THEN  CALL  Update (0) 

M_flag«l  ! Reset  menu  flag 

RETURN 

Caldata_io:  KEY  LABELS  OFF  ! Load/Save  CALDATA  file 

DISP  CHR$ (136) &" ("&CHR$ (138) &"L"&CHR$ (136) &")oad  or  (• 


' to  abort . ■ ! Load  or  save  data 
Mouse  trap 
Trap  keyboard 

Read  KBD$  buffer 
Load  file 
Save  file 
Exit 


"&CHR$ (138) &"BSC"&CHR$ (136) & 

ON  KNOB  1 GOSUB  Mouse  ! 

ON  KBD  GOSUB  Keytest  ! 

LOOP 

K$-KBD$  ! 

EXIT  IF  UPC$(K$)="L"  ! 

EXIT  IF  UPC$ (K$) «"S"  ! 

EXIT  IF  K$=CHR$ (27)  ! 

END  LOOP 

Action:  OFF  KBD  ! 

OFF  KNOB  ! 

IF  K$=CHR$ (27)  THEN  End_action 
IF  UPC$ (K$ [1, 1] ) ="L"  THEN  ! 

CALL  Update(l) 

IF  Defm-0  THEN  GOSUB  Mountl! 

IF  Defm=l  THEN  GOSUB  Mount 2 ! 

END  IF 

IF  UPC$ (K$ [1, 1) ) ="S"  THEN  CALL  Update (2)  ! Save  data 

End_action:  KEY  LABELS  OFF  ! Return  to  menu 

M_f lag=l 
RETURN 

Mouse:  RETURN  ! Trap  mouse  [NO  RODENTS] 

Keytest:  RETURN  ! Trap  unused  keys  [DEAD  KEYS] 

END  IF 


&CHR$ (138) &"S"&CHR$ (136) &")ave  'CALDATA' 


Exit 


Load 


Make  mount  one  the  default  mount 
Make  mount  two  the  default  mount 


Nochange : SUBEND 


Exit  back  to  main  menu 


Mount_data:  SUB  Mount_data (A, F$ ) ! Writes  or  reads  mount  cal  data  from 
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3320  ! file  CALDATA  or  special  filename 

3330  OPTION  BASE  1 

3340  COM  /Caldata/Mountl$ [40] ,Mount2$ [40] , Cf 1 , Cf ul , Gml , Cf 2 , Cfu2 , Gm2 

3350  DIM  Cat$ (40) [80] 

3360  F$*UPC$(F$)  ! Make  string  all  upercase 

3370  IF  A=0  THEN  GOSUB  Write_data 

3380  IF  A=1  THEN  GOSUB  Read_data 

3390  SUBEXIT 


3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 


Backup  CALDATA  only 


Backup  CALDATA  only 


Write_data : 

IF  F$=" CALDATA"  THEN 
A=2 

ASSIGN  @Path_l  TO  F$&" . BAK" ; RETURN  Uncreated!  Open  file  CALDATA. BAK 
ASSIGN  @Path_l  TO  * ! Close  path 

IF  NOT  Uncreated  THEN  PURGE  F$6".BAK"  ! Purge  file  if  found 

END  IF 

ASSIGN  ®Path_l  TO  F$ /RETURN  Uncreated  ! Open  file  CALDATA 
ASSIGN  ®Path_l  TO  * ! Close  path 

IF  A=2  AND  NOT  Uncreated  THEN  COPY  F$  TO  F$&"  . BAK" 

IF  NOT  Uncreated  THEN  PURGE  F$  ! Purge  file  if  found 
IF  F$o"CALDATA"  THEN  A=3 
ON  ERROR  GOTO  Cant_make 
CREATE  BDAT  F$ , 1 
OFF  ERROR 

ASSIGN  @Path_l  TO  F$ 

OUTPUT  @Path_l ; Mount 1$ 

OUTPUT  @Path_l ;Cf 1 
OUTPUT  ®Path_l;Gml 
OUTPUT  @Path_l ;Cful 
OUTPUT  ®Path_l/Mount2$ 

OUTPUT  @Path_l ; Cf 2 
OUTPUT  @Path_l;Gm2 
OUTPUT  @Path_l;Cfu2 
ASSIGN  @Path_l  TO  * 

RETURN 
Read_data : 

IF  F$ < > " CALDATA " THEN  A=3 
ASSIGN  @F  TO  F$ /RETURN  Uncreated  ! Open  file  CALDATA  or  user  filename 
IF  Uncreated  THEN  GOSUB  No  file!  If  not  found  warn 


! Create  file  CALDATA 

! Open  file  CALDATA 
! Mount  one  S/N 
! Mount  calibration  factor 
! Reflection  coefficient  magnitude 
! Cal  factor  uncertainty  in  percentage 
! Mount  two  serial  number 
! Mount  calibration  factor 
! Reflection  coefficient  magnitude 
! Cal  factor  uncertainty  in  percentage 
! Close  path 

! Open  file  & read  data 


ENTER  @F; Mount 1$ 

ENTER  @F/Cf 1 
ENTER  @F / Gml 
ENTER  @F/Cful 
ENTER  @F/ Mount 2$ 

ENTER  @F/Cf 2 
ENTER  @F/Gm2 
ENTER  ®F/Cfu2 
ASSIGN  ®P  TO  * 

RETURN 

No_file: 

IF  A- 3 THEN  Cant_make 

CLEAR  SCREEN 

BEEP 

BEEP 

BEEP 

PRINT  PEN  2 
PRINT  TABXY (5 ( 10) 
PRINT  PEN  3 
PRINT  TABXY (5, 12) 
PRINT  TABXY (5, 13) 


! Mount  one  serial  number 
! Mount  calibration  fatctor 
! Reflection  coefficient  magnitude 
! Cal  factor  uncertainty  in  percentage 
! Mount  two  serial  number 
! Mount  calibration  factor 
! Reflection  coefficient  magnitude 
! Cal  factor  uncertainty  in  percentage 
! Close  file 

! No  file  CALDATA  found/  warn  user 


Beep  Beep 


Can  not  find  BDAT  file  "&F$&" 


The  file  'CALDATA'  is  used  to  store  the  calibration  data" 
for  the  measurement  mounts  and  should  be  located  in  the  same" 
PRINT  TABXY (5, 14) , "directory  as  this  program." 

ASSIGN  ®F  TO  * ! Close  path 

L INPUT  "Press  ENTER  to  continue Fake$ 

CLEAR  SCREEN 

SUBEXIT 

RETURN 


3970  Cant_make:  ! Can  not  make  file 

3980  OFF  ERROR 

3990  BEEP 

4000  L INPUT  "ERROR  - Filename  or  Directory  not  found.  Press  enter Fake$ 

4010  A*-l 

4020  SUBEXIT 

4030  SUBEND 

4040  ! 

4050  ! 

4060  ! 

4070  Update:  SUB  Update (Pv)  ! Displays  and  updates  bdat  file  CALDATA 

4080  OPTION  BASE  1 ! with  new  info  entered  by  user 

4090  COM  /Errs/Dp, Vic, Vli , Vlf , Vlxi , Vlxf , Vlx,  V2x,  Tlf  ac , T2f  ac,  Cfu,  Mmu,  Deu,  Dpu 
4100  COM  /Brrs/Gm, Scfu, Smrau, Sdeu, Sdpu, Wc_unc, Cs_unc, Ex_unc 

4110  COM  /Mount /Mount $ [40] , Cf , Defm  ! Mount  ID 

4120  COM  /Caldata /Mount 1$ [40] ,Mount2$ [40] , Cfl, Cful,Gml, Cf2, Cfu2 ,Gm2 

4130  STATUS  1,13 /Rows  ! Get  screen  rows 

4140  CLEAR  SCREEN 

4150  IF  Pv*0  THEN  GOSUB  Mount_l 

4160  IF  Pv m 1 OR  Pv-2  THEN 

4170  A*1 

4180  GOSUB  Caldata_raem 

4190  END  IF 

4200  SUBEXIT 

4210  Mount_l : ! Display  data  for  mount  one 

4220  PRINT  PEN  1 

4230  IF  Jump»0  THEN  PRINT  TABXY (41 , 4 ), "Current  data  in  file  CALDATA" 

4240  IF  Jump«l  THEN  PRINT  TABXY (41 , 4 ) , " Current/New  data  in  memory  " 

4250  PRINT  PEN  3 

4260  IF  A«1  AND  Pv=0  THEN  PRINT  PEN  5 

4270  PRINT  TABXY (40, 6) , "MOUNT  ONE" 

4280  PRINT  TABXY (40, 8) , "S/N  "/Mountl$ 

4290  PRINT  TABXY (40, 9) , "Cf*  "/Cfl 

4300  PRINT  TABXY (40, 10) , "Cfu*  "/Cful 

4310  PRINT  TABXY (40, 11) , "Gm=  "/Gml 

4320  PEN  6 

4330  IF  Rows >31  THEN  CLIP  50,95,69,88 

4340  IF  Rows<31  THEN  CLIP  62,118,62,85 

4350  FRAME 

4360  Mount_2 : 

4370  PRINT  PEN  3 

4380  IF  A«2  AND  Pv-0  THEN  PRINT  PEN  5 

4390  PRINT  TABXY (40, 15) , "MOUNT  TWO" 

4400  PRINT  TABXY (40, 17) , "S/N  "/Mount2$ 


! Serial  number 
! Calibration  factor 
! Calibration  factor  uncertainty  in  % 
! Reflection  coefficient 

! For  800x600  screen 
! For  640x480  screen 

! Display  data  for  mount  two 


! Serial  number 
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4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 


PRINT  TABXY(40, 18) , "Cf=  ";Cf2 
PRINT  TABXY(40, 19) , "Cfu=  M;Cfu2 
PRINT  TABXY (40, 20) , "Gm=  ";Gm2 
IF  Rows >31  THEN  CLIP  50,95,45,64 
IF  Rows <31  THEN  CLIP  62,118,32,55 
FRAME 
PEN  2 

IF  Rows >31  THEN  CLIP  49,96,44,89 
IF  Rows<31  THEN  CLIP  61,119,31,86 
FRAME 

IF  Jump=l  THEN  RETURN 
New_data : 

PRINT  PEN  5 

PRINT  TABXY (5, 10) , "NEW  DATA" 

PRINT  TABXY (5, 12) , "S/N  ";Mount$ 
PRINT  TABXY (5, 13) , "Cf=  ";Cf 
PRINT  TABXY (5, 14) , "Cfu=  ";Cfu 
PRINT  TABXY (5, 15) , "Gm=  " ;Gm 
PRINT  PEN  3 


Calibration  factor 

Calibration  factor  uncertainty  in  % 

Reflection  coefficient 

800x600 

640x480 


800x600 

640x480 


Display  new  mount  data 


Serial  number 
Calibration  factor 

Calibration  factor  uncertainty  in  % 
Refelection  coefficient 


Update_caldata : ! Update  date  for  mount  one  or  two 

ON  KNOB  1 GO SUB  Mouse_trap 
ON  KBD  GOSUB  Keytest 

DISP  CHR$ (136) &"Enter  "&CHR$ (138) &"1"&CHR$ (136) &"  to  save  as  mount  one,  "&CHR$ (138) &"2"&CHR$ (136) &" 
or  ‘ "&CHR$ (138) &"ESC"&CHR$ (136) ' to  abort . " 

LOOP 

A$-KBD$ 

EXIT  IF  A$="l" 

EXIT  IF  A$-"2" 

EXIT  IF  A$=CHR$ (27) 

END  LOOP 


Action: ! 


to  save  as  mount  two. 


OFF  KNOB 
OFF  KBD 

IF  A$-CHR$ (27)  THEN  End_action 
A-VAL ( A$ ) 

IF  A=1  THEN 

Mount 1 $ -Mount  $ 

Cfl-Cf 
CfUl-CfU 
Gml  =Gm 
END  IF 
IF  A=2  THEN 

Mount  2 $ -Mount  $ 

Cf2-Cf 
Cf u2=Cf u 
Gm2  -Gm 
END  IF 
Caldata_mem: 

IF  A-l  OR  A-2  THEN 
Jump-1 

CLEAR  SCREEN 


Update  mount  ONE  data 
Model /serial  number 
Calibration  factor 

Calibration  factor  uncertainty  in  percent 
Reflection  coefficient 

Update  mount  TWO  data 
Model /serial  number 
Calibration  factor 

Calibration  factor  uncertainty  in  percent 
Reflection  coefficient 

Display  Caldata  in  memory 
Redisplay  data  with  new  changes 


GOSUB  Mount_l 
PRINT  PEN  3 
BEEP 

ALLOCATE  Y$ [255] 

Y$= "C:\NIST_PM2\CALDATA" 

IF  Pv-1  THEN  Y$= "C : \NIST  PM 2 \ CALDATA . ORG"  ! Default  Path 


User_input : ! 

IF  Pv-1  THEN  A- 1 
IF  Pv-0  OR  Pv=2  THEN  A-0 

OUTPUT  2,-Y$;CHR$  (255)  &"H" ; ! Output  default  filename 

IF  Pv-1  THEN  LINPUT  "§Enter  path  and  name  of  file  to  dLOADe . 


IF  Pv-2  OR  Pv-0  THEN  LINPUT 
Y$-TRIM$ (Y$ ) 

IF  Y$-n " THEN  SUBEXIT 
CALL  Mount_data (A, Y$) 

IF  A--1  THEN  GOTO  User_input 
END  IF 

End_action:  RETURN 
Keytest : RETURN 
Mouse_trap:  Return 


§Enter  path  and  name  of  file  to  £SAVEe 
Remove  trailing  and  leading  spaces 
If  string  is  empty  then  exit 

Save  data  as  bdat  file  CALDATA  or  User  filename 


! Dead  Keys 
! No  Rodents 


Enter  a blank  line  to  Exit.",Y$ 

Enter  a blank  line  to  Exit.",Y$ 


SUBEND 


Pm_init : SUB  Pm_init 
OPTION  BASE  1 


Initialize  Arbiter  1096A  Power  Meter 


COM  /Init/Pm_avail , Dvm_avail 
ON  TIMEOUT  7 , . 2 GOTO  Pm_e 
CLEAR  713 

OUTPUT  713 ; "RA2 , RB2 , MA2 , DB0 , Ela" 


Stat-SPOLL (713) 

IF  Stat>0  THEN  CALL  Pm_error 
Pm_avail«l 
OFF  TIMEOUT  7 
SUB EXIT 
Pm_e : 

OFF  TIMEOUT  7 
BEEP 


! Initialize  power  meter 
RA2  - Set  mount  A for  200  ohm 
RB2  = Set  mount  B for  200  ohm 
MA2  = Activate  front  panel  meter 
DB0  = Turn  DVM  bus  off 
Ela  = SRQ  interrupt  mask  byte=ll 
Poll  for  power  meter  status 
If  error  warn  user 
PM  ready 


PM,  where  are  you? 


Pm_avail«0 
OUTPUT  1;"" 
OUTPUT  1;" 
LINPUT  "Press 
SUBEND 


! PM  not  available 
! Warn  user 

Arbiter  1096A  dual  type  IV  power  meter  not  found  at  address  713 . " 
'ENTER'  to  Continue" , Fake $ 


Pm_error:  SUB  Pm_error  ! Service  1096A  PM  error  interrupt 

CLEAR  SCREEN  ! Danger!  Danger!  - Will  Robinson! 

PRINT  TABXY (25,10) , CHR$ (137) &" HARDWARE  ERROR  - PROGRAM  HALTED" &CHR$ (136) 
PRINT  TABXY (21, 12) , "Arbiter  1096A  Type  IV  power  meter  error . "&CHR$ (138) 
PRINT  TABXY (19, 28) , "Check  Power  Meter  and  Press  RUN  To  Restart" 

DISP  " " 

KEY  LABELS  ON 
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5490 

5500 

5510 

5520 

BEEP  400, .3 
STOP 

SUBEND 

5540 

j 

5550 

Ke 

199:  SUB  Ke  199  ! 

DVM  ranges  and  uncertainty 

5560 

OPTION  BASE  1 

! 

(Keithly  199,  1 yr,  5-1/2  dig) 

5570 

Dvm  name?="Keithley  199" 

5580 

! 

FOR  DVM: 

VALUE 

QUANTITY 

5590 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 , A5 , B1 , B2 , B3 , B4 , B5 , R1 , R2 , R3 , R4 , R5 

5600 

COM  /Dvm /Dvm 

name? (40)  ! 

DVM  ID 

5610 

NC: 

DATA 

3 . 02999E5  ! 

number  of  counts,  full  scale 

5620 

A1 : 

DATA 

1.2E-4  ! 

f raction-of -rdg  error,  range 

Rl,  1 yr 

5630 

A2  : 

DATA 

7.0E-5  ! 

f raction-of -rdg  error,  range 

R2 , etc. 

5640 

A3  : 

DATA 

9.0E-5  ! 

f raction-of -rdg  error,  range 

R3 

5650 

A4  : 

DATA 

9.0E-5  ! 

f raction-of -rdg  error,  range 

R4 

5660 

B1  : 

DATA 

3 . ! 

f raction-of -FS  error,  counts, 

range 

Rl 

5670 

B2  : 

DATA 

2 . ! 

f raction-of -FS  error,  counts, 

range 

R2 

5680 

B3  : 

DATA 

2 . ! 

fraction-of -FS  error,  counts, 

range 

R3 

5690 

B4  : 

DATA 

2 . ! 

f raction-of -FS  error,  counts, 

range 

R4 

5700 

R1  : 

DATA 

0.302999  ! 

lowest  range  (including  overrange) , 

volts 

5710 

R2  : 

DATA 

3.02999  ! 

next  range  up 

5720 

R3  : 

DATA 

30.2999  ! 

next  range  up 

5730 

R4  : 

DATA 

302.999  ! 

next  range  up 

5740 

READ  Nc,Al,A2 

, A3.A4, B1.B2,B3,B4, 

R1,R2,R3,R4 

5750 

Convert  fs  errs:! 

Normalize  FS  count 

errors  to  fractional  errors 

5760 

Bl-Bl/NC 

5770 

B2  =B2 /Nc 

5780 

B3  =B3 /NC 

5790 

B4=B4/Nc 

5800 

SUB  END 

5810 

! 

5830 

! 

5840 

Dvm 

init : SUB  Dvm 

init  ! 

Initialize  Kel99  DVM/Scanner 

5850 

OPTION  BASE  1 

5860 

COM  /Init /Pm 

avail, Dvm  avail 

5870 

ABORT  7 

Stop  all  HP- IB  activity  (HTB 

3.0) 

5880 

ON  TIMEOUT  7, 

. 5 GOTO  Dvm  e ! 

5890 

CLEAR  722 

Clear  the  DVM 

5900 

OUTPUT  722 ; "F0R0T4P1S1N1X"  ! 

Initialize  Keithly  199  DVM/Scanner 

5910 

CALL  Dvm  (V,  T) 

Get  DVM  reading  if  ready  (HTB 

3.0) 

5920 

F0  = DC  Volts 

5930 

R0  = Auto  Range 

5940 

T4  = Trigger  Continuous  on  X 

5950 

PI  = Internal  Filter  Enabled 

5960 

SI  = 5 1/2-digit  resolution 

5970 

N1  » Channel  one 

5980 

Dvm  avail «1 

DVM  ready  to  go 

5990 

OFF  TIMEOUT  7 

6000 

SUB EXIT 

6010 

Dvm 

6: 

! 

DVM  not  found 

6020 

OFF  TIMEOUT  7 

6030 

BEEP 

6040 

Dvm  avail=0 

j 

No  DVM  available 

6050 

OUTPUT  1;"" 

j 

Warn  user 

6060  OUTPUT  1;"  Keithly  199  System  DMM/Scanner  not  found  at  address  722. " 

6070  L INPUT  "Press  ' ENTER'  to  continue" , Fake? 

6080  SUBEND 
6090  ! 

6100  ! - - 

6110  ! 


6120  Menul:  SUB  Menul (Num_me as, Quit , Rev?)  ! Premeasurement  set  up  & soft  keys 


6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320  Top: 


OPTION  BASE  1 

COM  /Wavetek/Sn$ [7]  ! For  the  serial  number 

COM  /Mount /Mount$ [40] , Cf ,Defm  ! Mount  ID 
COM  /Init/Pm_avail,Dvm_avail 


STATUS  1,13; Rows 
Sys_prty«VAL (SYSTEM? { "SYSTEM 
Lcl_prty»Sys_prty+l 
M_flag«l 


USER  1 KEYS 
KEY  LABELS  ON 
FOR  N*0  TO  19 
ON  KEY  N LABEL 
NEXT  N 

ON  KEY  0 LABEL  " 
ON  KEY  1 LABEL  " 
ON  KEY  2 LABEL  ■ 
ON  KEY  3 LABEL  ■ 
ON  KEY  4 LABEL  " 
ON  KEY  9 LABEL  " 
LOOP 


""  GOTO  Top 

MOUNT 
SERIAL  NO. 
NO.  POINTS 
HELP 
MEASURE 
EXIT 


PRIORITY"))  ! Determine  system  priority 
! Set  local  priority  1 higher  for  ON  KEY 
! To  write  menu 
! 1st  set  of  soft  keys 
! Turn  on  soft  keys 
! Clear  keys 
! Default  destination 

" , Lcl_prty  GOSUB  Change_setup 
",Lcl_prty  GOSUB  Sn 
" , Lcl_prty  GOSUB  Change 
" , Lcl_prty  GOSUB  Help 
",Lcl_prty  GOSUB  Exit_to_meas 
",Lcl_prty  GOTO  Quit 
! Wait  for  input 


6330  IF  M_f lag*l  THEN  GOSUB  Menu 

6340  IF  Pm_avail»l  THEN  Errorloop*l+Errorloop ! Check  PM  every  3000  counts 

6350  IF  Errorloop«3000  THEN  GOSUB  Error_pm 

6360  END  LOOP 

6370  Menu:  CLEAR  SCREEN  ! Main  menu 

6380  PEN  6 

6390  IF  Rows>31  THEN  CLIP  15,85,30,87  ! 800x600  display 

6400  IF  Rows >31  THEN  A«0 

6410  IF  Rows <31  THEN  CLIP  23,97,28,88  ! 640x480  display 

6420  IF  Rows«31  THEN  A*3 

6430  FRAME 

6440  PRINT  TABXY(5, 4- (A/2) ) , CHR$ (137) ; " PWR_MTR  2.0  ";CHR$(138) 

6450  PRINT  TABXY (24,8 -A) , " - - - MEASUREMENT  MENU  - - -" 

6460  PRINT  TABXY (20, 11 -A)  , CHR$ (129) ;"  1 " ; CHR$ ( 128 ) ; " SELECT  MEASUREMENT  MOUNT" 

6470  PRINT  TABXY  (25, 12-A)  , CHR?  (136)  &"  (".-Mount?;")  "&CHR?  (138) 

6480  PRINT  TABXY (20, 14-A) , CHR$ (129) 2 " ;CHR$ (128) ; " INPUT  WAVETEK  SERIAL  NUMBER" 

6490  IF  LEN (TRIM? (Sn$) ) <1  THEN  PRINT  TABXY (25. 15-A) , CHR? (137) &" (No  S/N  in  memory) "&CHR? ( 138) 

6500  IF  LBN  (TRIM? (Sn?) ) >0  THEN  PRINT  TABXY ( 25 , 15-A) , CHR? (136 )&" (S/N  " ; Sn? ; " in  memory) "&CHR? (138) 

6510  PRINT  TABXY (20, 17-A)  , CHR? (129)  3 " ; CHR? ( 128 ) ; " CHANGE  # OF  MEASUREMENT  POINTS" 

6520  PRINT  TABXY (25, 16-A) , CHR? (136) &" (Present  setting  =" ;Num_meas ; " ) "&CHR?(138) 

6530  PRINT  TABXY (20, 20-A) .CHR? (129) ;"  4 " ;CHR? (128) ; " WAVETBK  OPERATING  INSTRUCTIONS" 

6540  PRINT  TABXY (20, 22 -A) , CHR? (129) 5 " ; CHR? ( 128 ) ; " BEGIN  MEASUREMENT" 

6550  PRINT  TABXY (20, 24 -A) , CHR? (129) 0 " ; CHR? ( 128 ) ; " EXIT  PROGRAM" 

6560  PRINT  TABXY (48 -A, 28- A) , CHR? (139) ; "rev  ";Rev? 

6570  M_f lag*0 
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6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 


RETURN 

Sn:  ! Input  the  WAVBTEK  serial  number 

KEY  LABELS  OFF  ! Turn  off  soft  keys 

OUTPUT  2;Sn$; 

LINPUT  "WAVETEK  SERIAL  NUMBER  ?",Sn?[l,7] 

Sn$=TRIM$ (Sn$) 

KEY  LABELS  ON  ! Turn  keys  back  on 

M_f lag=l 

RETURN 

Change:  ! Change  # of  meas  points 

KEY  LABELS  OFF  ! Turn  off  soft  keys 

INPUT  "NUMBER  OF  MEASUREMENT  POINTS  ?",Num_meas 
Num_meas=MIN (Num_meas, 100) 

Num_meas=MAX (Num_meas , 1) 

KEY  LABELS  ON  ! Turn  keys  back  on 

M_f lag=l 

RETURN 


Help:  ! With  operation  of  Wavetek 

CALL  Help 
M_f lag=l 
RETURN 

Change_setup : ! Change  default  mount  settings 

CALL  Set_up (1) 

KEY  LABELS  ON 
M_f lag=l 
RETURN 

Error_pm:  ! Poll  power  meter  for  error 

ON  TIMEOUT  7, .2  GOTO  Pm_e 
Stat=SPOLL (713 ) 

IF  Stat>0  THEN  CALL  Pm_init 

Errorloop=0 

OFF  TIMEOUT  7 

RETURN 


Pm_e : 

OFF  TIMEOUT  7 


Power  meter  error 


Errorloop=0 

Pm_avail«0 

RETURN 

Exit_to_meas : ! Exit  to  begin  measurement 

IF  Pm_avail«0  OR  Dvm_avail=0  THEN  ! PM  or  DVM  have  not  been  init. 
CALL  Pm_init 
CALL  Dvm_init 
END  IF 


M_f lag=l 

IF  Pm_avail*0  OR  Dvm_avail*0  THEN  RETURN  ! No  PM,  no  DVM,  no  measure 
SUBEXIT 

Quit : ! Terminate  program 

Quit»l  ! User  goes  home 

KEY  LABELS  OFF 
SUB END 


Help:  SUB  Help 

OPTION  BASE  1 

Sys_prty=VAL (SYSTEM? ( "SYSTEM 

Lcl_prty-Sys_prty+l 

USER  1 KEYS 

KEY  LABELS  ON 

FOR  No0  TO  19 

ON  KEY  N LABEL  ""  GOTO  Top 
NEXT  N 

ON  KEY  9 LABEL  " MAIN  MENU 
GO SUB  Text 
Top:  LOOP 

END  LOOP 
Text : 


! Wavetek  user  information 

PRIORITY"))  ! Determine  system  priority 
! Set  local  priority  1 higher  for  ON  KEY 
! 1st  set  of  soft  keys 
! Turn  on  soft  keys 
! Clear  keys 
! Default  destination 

",Lcl__prty  GOTO  Exit 
! Print  info 
! Wait  for  input 

! Here  be  info 


CLEAR  SCREEN 
PRINT  PEN  1 
PRINT  TABXY (22,2) , 
PRINT  TABXY (12, 4) . 
PRINT  TABXY (12, 5) , 
PRINT  TABXY (14, 7) , 
PRINT  TABXY (25. 7) , 
PRINT  TABXY (38, 7) , 
PRINT  TABXY (49, 7) , 
PRINT  TABXY (12, 9) , 
PRINT  TABXY (12, 10) 
PRINT  TABXY (12, 11) 
PRINT  TABXY (12, 13) 
PRINT  TABXY (12, 14) 
PRINT  TABXY (12, 17) 
PRINT  TABXY (12, 18) 
PRINT  TABXY (12, 19) 
RETURN 


"CONTROLLING  8502A  CALIBRATOR  OUTPUT" 

"Press  the  following  8502A  front  panel  control  keys  in  the" 
"sequence  indicated:" 

" (1) -'CW' , " 

■ ( 2 ) - ' Menu ' , * 

" (3 ) - ' F3 ' , " 

" (4)  -'FI'  . " 

■Then,  pressing  the  8502A  key  '7'  will  turn  the  calibrator" 
."output  ON,  and  pressing  the  8502A  key  'CLEAR'  will  turn  the" 
."calibrator  output  OFF." 

, "For  more  detail  see  'Calibrator  Output  Level  Test'  on  page  6-2" 
, "of  the  8502A  manual . ■ 

."CAUTION:  Do  not  press  any  UNITS  key  when  the  mount  is" 
."connected  to  the  calibrator.  This  will  cause  the" 

, "calibrator  to  output  100  mw  which  might  damage  the  mount." 


Exit : 
SUBEND 


Helped 


Hdr:  SUB  Hdr  ! Header  text  for  measurement  and  screen 

OPTION  BASE  1 

COM  /Dvm/P0 , R0  , A1 , A2  , A3  , A4  , A5 , B1 , B2  , B3  , B4  , B5  , R1 . R2  , R3  , R4  , R5 
COM  /Dvm/Dvm_name$ [40]  ! DVM  ID 

COM  /Mount/Mount? [40] ,Cf ,Defm  ! Mount  ID 
COM  /Wavetek/Sn$ [7]  ! For  the  serial  number 

COM  /Hardcopy /Tdate? [40] 

CLEAR  SCREEN 

PRINT  TABXY (1,2) , CHR$ (137) &"P  W R _ M T R 2 . 0"&CHR?(136) 

PRINT  TABXY(30, 2) ,CHR$ (136) ;CHR$ (129) ;"  MEASUREMENT  IN  PROGRESS  ";CHR$(128) 
PRINT  TABXY (1, 4) ,CHR$( 140) /"MOUNT:  " /Mount? ; CHR? (136 ) 

PRINT  TABXY (59, 4) , CHR?  (140)  /TIME? (TIMEDATE)  /"  " /DATE? (TIMEDATE)  / CHR? ( 136 ) 

Tdate?*TIME? (TIMEDATE) &"  " &DATE? (TIMEDATE)  ! Sore  time  and  data  of  measurement 

PRINT  TABXY (1, 5) , CHR? (140) / "POWER  METER:  WAVETEK  MODEL  8502A,  S/N  " /Sn? /CHR? (136) 

PRINT  "" 

OUTPUT  B?  USING  "#,K"/P0  ! Format  power  string 

PRINT  " No.  Power  Pwr- " ,-B? ,- " mW  VI  Delta  V VI  Drift  Ref.  Offset" 

IMAGE  "A  Q",4X,"a  (mW)  C",4X,"S  (%)  Q",7X,"&  (V)  Q" , 3 X, "4  (mV)  Q",3X,"S  (uV/s)  Q",3X,"S 

PRINT  USING  7650 


(mV)  Q" 
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7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

6420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 


SUBEND  ! Hdr 

! 

! 


Measloop:  SUB  Measloop (Num_meas, P (*) , Esc)  ! Measurement  loop 
KEY  LABELS  OFF 


FOR  N=1  TO  Num_meas 
DISP  N 
Esc=0 

CALL  Meas (N, PI, Esc) 

IF  Esc=l  THEN  SUBEXIT 
P(N, 1) =P1 
! WAIT  1 

NEXT  N 

OUTPUT  722 ; "T4X  " 

KEY  LABELS  ON 
SUBEND 


! Num_meas=  no.  of  measurements (1-100) 

! Reset  bailout  flag 
! Do  the  measurement 
! bailout 

! Fill  array  for  statistics 
! Wait  before  measuring  again 

! Let  DVM  continue  reading 


Meas:  SUB  Meas (N, PI, Esc)  ! Performs  measurement,  calculates 

OPTION  BASE  1 ! and  prints  results. 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 , A5 , B1 , B2 , B3 , B4 , B5 , R1 , R2 , R3 , R4 , R5 
COM  /Dvm/Dvm_name$ (40]  ! DVM  ID 

COM  /Errs /Dp , Vic , Vli , Vlf , Vlxi , Vlxf , Vlx , V2x , Tlf ac , T2 f ac , Cf u , Mmu , Deu , Dpu 
COM  /Brrs/Gm, Scfu, Smmu, Sdeu, Sdpu, Wc_unc, Cs_unc, Ex_unc 
COM  /Mount /Mount$ [40] , Cf,Defm  ! Mount  ID 
COM  /Harddata/Pdata (100, 7) , Pres (7,1) 

DIM  Bsc$ [255] 


ON  KBD  GOSUB  Bail_out 
CALL  Dvm (Vli , Tli) 

OUTPUT  722; "N2R1T0X" 

WAIT  .2 

CALL  Dvm ( Vlxi, Tlxi) 
Vt=Vlxi+Vli-SQR (VliA2-9.E-4*R0) ! 
CALL  Rf (1, Vt, Lcl_prty, Esc) 

IF  Esc  THEN  Bail_out 
WAIT  1 

CALL  Dvm  ( V2x,  T2x) 

CALL  Rf (0, Vt,Lcl_prty, Esc) 

IF  Esc  THEN  Bail_out 
WAIT  1 

CALL  Dvm (Vlxf ,Tlxf) 

OUTPUT  722 ; "N1R2X" 

WAIT  .2 

CALL  Dvm(Vlf.Tlf) 

Tlf ac= (T2x-Tli) / (Tlf-Tli) 
Vlc-Vli+Tlfac* (Vlf -Vli) 

T2fac- (T2x-Tlxi) / (Tlxf -Tlxi) 
Vlx-Vlxi+T2fac* (Vlxf -Vlxi) 

Dvl  = (Vlf -Vli)  *1 . E+6 
Dvl_dt=Dvl/ (Tlf-Tli) 

Dv2«V2x-Vlx 

PI- (2*Vlc- (Dv2 ) ) * (Dv2) *1000/R0 
Pl-Pl/Cf 
Printout : 


Escape  if  user  hits  ESC  key 

VI  before  rf  tura_on 

Connect  for  delta  V/Trig  on  talk 

Initial  delta  VI  (Vlxi)  with  rf  off 
Calculate  threshold  for  Rf  sub 
! Calls  for  rf  ON  and  determines  when 

For  source  to  settle 

Read  delta  V2  (V2x)  with  rf  on 

Calls  for  rf  OFF  and  determines  when 


Wait  again 

Final  delta  VI  (Vlxi) 
Reconnect  for  VI 


with  rf  off 


Final  VI  with  rf  off 
First  timing  factor 
VI  corrections 
Second  timing  factor 
Delta  V corrections 
Change  in  VI 

Drift  rate  of  VI  in  mV/sec 
Change  in  V2  - (delta  V) 

Power  in  mW 
Cal  factor  correction 
Realtime 

IMAGE  3D, 5X, Z . 5D, 6X, MZ .3D, 9X, Z . 6D, 2X, 3D . 3D, 6X, M2D .D, 5X, M2D . 3D 
PRINT  USING  8230 ;N, PI , 100* (P1-P0) /P0 , Vic, Dv2*l . E+3 , Dvl_dt , Vlx*l . E+3 
Save_results : ! 

Pdata(N,l)-N  ! Store  data  into  array  for  future  use 

Pdata (N, 2 ) -PI 
Pdata (N, 3 ) *100* (P1-P0) /P0 
Pdata (N, 4) -Vic 
Pdata (N, 5) »Dv2*l . E+3 
Pdata (N, 6) =Dvl_dt 
Pdata (N, 7) «Vlx*l . E+3 
SUB EXIT 
Bail_out : 

IF  Esc$-CHR$ (27)  THEN  Esc-1 
IF  Esc-1  THEN 
OFF  KBD 
OFF  KNOB 
BEEP 
BEEP 

PRINT  TABXY (30,2) , CHR$ (128) ;CHR$ (136) ; " M E 
L INPUT  "ESC  Key  Pressed;  Measurement  ABORTED 
CALL  Dvm_init  ! Reset  DVM 

SUBEXIT  ! Leave 

END  IF 
RETURN 

Exit : ! Measurement  complete 

SUBEND  ! SUB  Meas 
! 


! 


User  interrupt 
If  ESC  key 

Turn  off  trapping 

Beep  Beep 


ASUREMENT  STOPPED 
Press  ENTER  to  Exit . " , Fake$ 


Rf 


SUB  Rf (On , Vt , Lcl_prty , Esc ) 
DIM  Esc$ [255] 

Esc$«" " 

ON  KNOB  1 GOSUB  Knob_service 
ON  KBD  GOSUB  Bail 
IF  On  THEN 

DISP  CKR$ (139) &CHR$ (129) 
CHR$  (128)  &CHR$  (138) 

BEEP 

LOOP 

CALL  Dvm (V, T) 

WAIT  1 

EXIT  IF  V>Vt 
END  LOOP 
ELSE 

DISP  CHR$ (136) &CHR$ (129) ; " 

CHR$  (128)  &CHR$  (138) 

BEEP 
WAIT  .2 
BEEP 
LOOP 

CALL  Dvm (V,  T) 

WAIT  1 


! Turn  rf  ON/OFF 

! Long  string  to  handle  key  bangers 

! Trap  mouse 
! Bailout  to  keyboard 

TURN  RF  ON  (PRESS  8502A  KEY  '!’)  "&CHR$ (143) &" 
!Tell  operator 
! Attention 

! Wait  for  rf  to  be  turned  on/off 
! Read  DVM 

! 

! If  rf  is  turned  ON 


TURN  RF  OFF  (PRESS  8502A  KEY  '7')  "&CHR$ (143 ) &" 
!Tell  operator 
! Attention 


! Wait  for  rf  to  be  turned  on/off 
! Read  DVM 


"&CHR$ (137) &"  Press  'ESC'  to  ABORT  " 


"&CHR$ (137) &"  Press  'ESC'  to  ABORT 
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8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 


EXIT  IF  V<Vt 
END  LOOP 
END  IF 
DISP  "" 

SUB EXIT 
Knob_service : 

! NO  RODENTS 
RETURN 
Bail : ! 

Esc$=KBD$ 

IF  Esc$=CHR$ (27)  THEN 
Esc=l 
SUBEXIT 
END  IF 
RETURN 
SUB END 


If  rf  is  turned  OFF 


Mouse  trap 


Trap  keyboard 
If  ESC  key 
Set  bail  flag 
Leave 

Else  continue 


Dvm : SUB  Dvm (V, T) 

SEND  7 ; UNL  LISTEN  22 
TRIGGER  7 
ENTER  722 ;V 
T=TIMEDATE 
SUBEND 


DVM  reading 
Get  dvm' s attention 
Trigger  to  read 
Read  DVM 
Get  the  time 


Errors:  SUB  Errors  ! Calculates  uncertainty  in  power  due  to  DVM 

OPTION  BASE  1 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 . A5 , B1 , B2 , B3 , B4 , B5 , R1 . R2 , R3 , R4 , R5 
COM  /Dvm/Dvm_name$ (40)  ! DVM  ID 

COM  /Errs /Dp,  Vic,  Vli,  VI f , Vlxi, Vlxf , Vlx,  V2x,  Tlf  ac,  T2fac,  Cfu,  Mmu,  Deu,  Dpu 
COM  /Errs/Gm, Scfu, Smmu, Sdeu, Sdpu , Wc_unc , Cs_unc , Ex_unc 


CALL  Select_v(Vli, Aali , Bbli , Ssli ) 

CALL  Select_v (Vlf , Aalf , Bblf , Sslf ) 

CALL  Select_v (Vlxi , Aalxi , Bblxi , Sslxi ) 
CALL  Select_v ( Vlxf , Aalxf , Bblxf , Sslxf ) 
CALL  Select_v(V2x, Aa2x, Bb2x, Ss2x) 
With_rvg : 

Dvli«Aali*Vli+Bbli*Ssli 
Dvlf  =Aalf  *Vlf -fBblf  *Sslf 
Dvlxi=ABS (Aalxi*Vlxi) +Bblxi*Sslxi 
Dvlxf -ABS (Aalxf *Vlxf) +Bblxf*Sslxf 
Dv2x-ABS (Aa2x*V2x) +Bb2x*Ss2x 
Dvlc= (1-Tlfac) *Dvli+Tlfac*Dvlf 
Dvlx- (1-T2fac) *Dvlxi+T2fac*Dvlxf 
Dpvl-ABS ( (V2x-Vlx) *Dvlc) 

Dpvlx-ABS ( ( Vlc-V2x+Vlx) *Dvlx) 
Dpv2x-ABS ( (Vlc-V2x+Vlx) *Dv2x) 

Dp«2  * (Dpvl+Dpvlx+Dpv2x) /R0 
Dp«Dp*l . E+3 
SUB  END 


Aa 


fract.  of  reading  error 


Bb_  - fract.  of  FS  error 
Ss_  - fullscale  reading 
Eq's  derived  900111/FRC 
Delta-V  due  to  initial  VI  measmnt 
Delta-V  due  to  final  VI  measmnt 
Delta  due  to  initial  Vlx  measmnt 
Delta-V  due  to  final  Vlx  measmnt 
Delta-V  due  to  V2x  measmnt 
Error  in  corrected  VI 
Error  in  delta  V correction 
! Delta-power  due  to  Vl  measmnt  errors 
! Delta-power  due  to  Vlx  " " 

! Delta-power  due  to  V2x  " ■ 

! Sum  (2  & R0  left  out  above) 

! Dp  in  raw 


Select_v:  SUB  Select_v(V, Aa, Bb, Ss)  ! 
OPTION  BASE  1 ! 

COM  /Dvm/P0 , R0 , A1 , A2 , A3 , A4 , A5 , B1 
COM  /Dvm/Dvm_name$ [40]  ! 

SELECT  ABS(V)  ! 

CASE  <«R1  ! 

Aa-Al  ! 

Bb=Bl  ! 

Ss-Rl  ! 

Range -1  ! 

CASE  <«R2  ! 

Aa-A2 
Bb-B2 

Ss-R2  ! 

Range -2 

CASE  <-R3  ! 

Aa«A3 
Bb-B3 
Ss-R3 
Range- 3 
CASE  <-R4 
Aa-A4 
Bb-B4 
Ss-R4 
Range -4 
CASE  < -R5 
Aa-A5 
Bb-B5 
Ss-R5 
Range -5 
CASE  ELSE 
BEBP 

PRINT  "Voltage  Error" 

END  SELECT 
SUBEND 


Returns  range  with  fraction  of  full 
scale  & fraction  of  reading  error 
B2  , B3  , B4  , B5  , R1 , R2  , R3  , R4  , R5 
DVM  ID 

V may  be  of  either  polarity 
Start  at  lowest  range 

Fraction  of  rdg  error  for  V on  range  R1 
Fraction  of  FS  error  for  V on  range  R1 
Fullscale  reading  for  V,  range  R1 
Range_no  number  for  plot 
Uprange  if  necessary 


Btc.  for  range  R2 
And  again 


Stats:  SUB  Stats (REAL  P(*))  ! Calculates  standard  deviation  and 

! final  uncertainty,  prints  results  to 
! screen  & stores  results  for  hard  copy 

OPTION  BASE  1 

COM  /Dvm/P0 , R0  . A1 , A2  , A3  , A4  . A5  , B1 , B2  , B3  . B4  , B5  , R1 , R2  , R3  , R4  , R5 
COM  /Dvm/Dvm_name$ [40]  ! DVM  ID 

COM  /Errs /Dp , Vic , Vl i , Vlf , Vlxi , Vlxf , Vlx , V2x , T1 f ac , T2 f ac , Cfu , Mmu , Deu , Dpu 
COM  /Errs/Gm, Scfu, Smmu, Sdeu, Sdpu , Wc_unc , Cs_unc , Ex_unc 
COM  /Harddata/Pdata( 100,7) , Pres (7,1) 

Sz-SIZE (P, 1) 

MAT  Pres-(0)  ! Zero  out  array 

ALLOCATE  Dum(Sz,l)  ! Use  Dum(*)  to  preserve  P(*) 


Sd: 


MAT  Dum-P 

Sum-SUM(Dum)  ! Sum  of  the  elements  in  P(*) 
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9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

9980 

9990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10850 

10860 

10870 

10880 

10890 

10900 

10910 


Sd=SQR (Var) 

Dpu= (Dp/Mean) *100 
Sdpu=Dpu/SQR ( 3 ) 
Sdm=Sd/SQR(Sz) 
Sdmu=100*Sdm/Mean 
Scfu*Cfu/SQR (3 ) 


Mean=Sum/Sz  ! Mean  of  P(*) 

MAT  Dum* P- (Mean)  ! Dum(*)  contains  deviations  from  mean 

Maxpdv=MAX (Dum ( * ) ) ! Largest  positive  deviation 

Maxndv=MIN(Dum(*) ) ! Largest  negative  deviation 

Maxdv=MAX (ABS (Maxpdv) , ABS (Maxndv) ) ! Largest  largest  deviation 

MAT  Dum = Dum  . Dum  ! Dum  holds  squares  of  deviations 

IF  Sz>l  THEN  Var=SUM (Dum) / (Sz-1)  ! Variance 

! Standard  deviation 
! % uncertainty  due  to  DVM 
! DVM  and  Type  IV 
! Standard  Deviation  of  the  mean 
! % of  standard  deviation  of  the  mean 
! Calibration  factor  std  uncertainty 
! rectangular  distribution 

Smmu=Mmu/SQR (2)  ! Mismatch  std.  unc  U-shaped  dist . 

Sdeu=Deu/SQR (3)  ! Dual  elemant  std.  unc.  rec.  dist. 

Wc_unc= (Sdmu*3) +Cfu+Mmu+Deu+Dpu!  Worst  case  sum 

Cs_unc=SQR (ScfuA2+SmmuA2+Sdeu*2+SdpuA2+SdmuA2 ) ! Combined  standard 

Ex_unc=Cs_unc*2  ! Expanded  uncertanty 

Prt : ! 

PRINT  " - 

PRINT  "RESULTS:" 

IF  Sz=l  THEN 
PRINT 

OUTPUT  Scr$  USING  "# , Z . 5D" ;P (1, 1) 

PRINT  " The  single  power  measurment  resulted  in  a value  of  "&Scr$&"  mW." 

PRINT 

PRINT  " The  table  of  uncertainties  is  not  displayed  for  a single  measurement 

ELSE 

OUTPUT  B$  USING  "#,K";P0 

PRINT  " AVG  PWR  AVG-";B$;"  mW  MAX  DEV 

IMAGE  8X, "3  (mw)  C",4X,"a  (%)  C",7X,"S  (%)  £ 

PRINT  USING  10140 

IMAGE  8X,Z.5D,6X,SZ.3D,8X.SZ.3D,K,SZ.3D,5X, Z . 3D. 5X, Z . 3D, 5X.Z.3D 

PRINT  USING  10160 ,-Mean, 100* (Mean-PO) /P0, 100*Maxpdv/Mean, " , " , 100*Maxndv/Mean, Sdmu, Wc_unc, Ex_unc 
END  IF 

PRINT  TABXY(30.2) , CHR$ (128) ;CHR$ (136) ;"  MEASUREMENT  COMPLETE 


STD  DEV  W/C  UNC  EXP  UNC" 

3X, "3  (%)  C",3X,"S  (%)  C",3X,"a  (%) 


C" 


Save_stats : 

Pres (1,1) *Mean 
Pres (2, 1) *100* (Mean-PO) /P0 
Pres (3,1) *100*Maxpdv/Mean 
Pres (4,1) » 100 *Maxndv/ Mean 
Pres (5,1) *Sdmu 
DEALLOCATE  Dum(*) 

SUB END 


Store  data  into  array  for  future  use 

Mean  power  in  mW 

Mean  percent  offset  from  P0 

Max  % dev  from  the  mean(+) 

Max  % dev  from  the  mean(-) 

Standard  deviation  of  the  mean 
Free  memory 


Menu 2 : SUB  Menu2 (Num_meas , P0) 

OPTION  BASE  1 
Sys_prty*VAL ( SYSTEMS ( "SYSTEM  PRIORITY" ) ) 


Post  measurement  soft  keys 


Determine  system  priority 


Set  local  priority  1 higher  for  ON  KEY 

1st  set  of  soft  keys 

Turn  on  soft  keys 

Clear  keys 

Default  destination 


Lcl_prty*Sys_prty+l 
USER  1 KEYS 
KEY  LABELS  ON 
FOR  N-0  TO  19 

ON  KEY  N LABEL  ""  GOTO  Top 
NEXT  N 

LABEL  " DUMP  SCREEN  " , Lcl_prty  GO SUB  Dump 
LABEL  " PRINT  REPORT  " , Lcl_prty  GOSUB  Print 
LABEL  "REPORT  TO  FILE" , Lcl_prty  GOSUB  Text_file 
LABEL  " MAIN  MENU  " , Lcl_prty  GOSUB  Exit 


ON  KEY  0 
ON  KEY  1 
ON  KEY  2 
ON  KEY  9 
Top:  LOOP 
END  LOOP 


Wait  for  input 


Dump : 

CALL  Kx_init 
KEY  LABELS  OFF 
KBD  LINE  PEN  0 
DUMP  ALPHA  #10 
KBD  LINE  PEN  4 
KEY  LABELS  ON 
PRINTER  IS  CRT 
RETURN 
Print : 

CALL  Hardcopy  (Num__meas , P0 , "H" ) 
RETURN 
Text_f ile : 

CALL  Hardcopy (Num_meas, P0 , "S" ) 
RETURN 


! Alpha  dump  to  printer  at  10 
! Init  Panasonic  KX-P1180  Printer 
! Turn  off  soft  keys 
! Line  pen  black 
! Alpha  dump  to  printer 
! Line  pen  green 
! Turn  keys  back  on 


! Print  report  to  printer 
! Print  report  to  text  file 


Exit : 

KEY  LABELS  OFF 

ON  KNOB  1 GOSUB  Mousetrap 

ON  KBD  GOSUB  Key trap 

DISP  CHR$ (136) &"A11  data  will 

LOOP 

M$-KBD$ 

EXIT  IF  UPC$ (M$) »"Y" 

EXIT  IF  UPC$ (M$ ) * "N" 

END  LOOP 
M$*TRIM$ (M$ ) 

OFF  KNOB 
OFF  KBD 
DISP  "" 

IF  UPC$ (M$ ) * " Y"  THEN  SUBEXIT 
KEY  LABELS  ON 
RETURN 
Mousetrap : 

! No  Rodents 
RETURN 


be  lost.  EXIT  ("&CHR$ (138) &"Y"&CHR$ (136) &")es  or  ( "&CHR$ ( 138 ) &"N"&CHR$ (136) &" ) o . " 

! Exit  on  YES 
! Exit  on  NO 

! Remove  leading  and  trailing  spaces 


! Clear  display  line 
! Lost  the  data 

! Trap  mouse 


Keytrap:  ! Trap  unused  keys 

! Dead  Keys 
RETURN 
SUB END 


Hardcopy:  SUB  Hardcopy (Num_meas, P0,0$)  ! Hardcopy  report 
OPTION  BASE  1 ! 0$="H"  use  Printer 

COM  /Hardcopy/Tdate$ (40)  ! 0$*"S"  use  DOS  ASCII  file 

COM  /Harddata/Pdata (100,7) , Pres (7,1) 
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10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 

11810 

11820 

11830 

11840 

11850 

11860 

11870 

11880 

11890 

11900 

11910 

11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

12000 


Output  to  printer 
Init  Panasonic  KX-P1180  Printer 
Assign  path  to  printer 
Output  to  DOS  ASCII  file 

! Build  filename 


Yes 

No 


COM  /Mount /Mount$ [40] , Cf , Defm 
COM  /Wavetek/Sn$ [7] 

DIM  Tf ile$ [80] 

IF  0$="H"  THEN 
CALL  Kx_init 
ASSIGN  @P1  TO  10 
ELSE 

KEY  LABELS  OFF 

Tfile$="C:\NIST_PM2\"&Sn$&" . RPT" 

Enter_name:  ! 

OUTPUT  2 ;Tf ile$ ; ! Output  to  CRT 

LINPUT  "CHR$ (136) Enter  path  and  name  of  output  file.  ",Tfile$ 

Tf ile$=TRIM$ (Tf ile$)  ! Remove  leading  & trailing  spaces 

IF  LEN (Tf ile$ ) <1  THEN  SUBEXIT  ! If  no  path/file  then  exit 

ASSIGN  @P1  TO  Tfile$ /RETURN  Uncreated  ! Open  file  TFile$ 

ASSIGN  @Path_l  TO  * ! Close  path 

IF  NOT  Uncreated  THEN  ! Dupicate  file  name 

BEEP 

ON  KNOB  1 GOSUB  Mousetrap  ! Disable  mouse  movement 

ON  KBD  GOSUB  Keytrap  ! Trap  input 

DISP  "CHR$ (138) Duplicate  file  name  found.  Delete  file?  (CHR$ (136) YCHR$ (138) ) es  or  (CHR$ (136) NCHR$ (138) ) o. 
LOOP 

D$=KBD$ 

EXIT  IF  UPC$ (D$) = "Y" 

EXIT  IF  UPC$ (D$) ="N" 

END  LOOP 
OFF  KNOB 
OFF  KBD 
DISP  "" 

IF  UPC$ (D$ ) *"Y"  THEN  PURGE  Tfile$ 

IF  UPC$ (D$) = "N"  THEN  Enter_name 
END  IF 

ON  ERROR  GOTO  Error_handler 
CREATE  Tf ile$ , 1 
OFF  ERROR 

ASSIGN  ®P1  TO  Tf ile$ ; FORMAT  ON 
KEY  LABELS  ON 
END  IF 

OUTPUT  P$  USING  , K" ; P0 
OUTPUT  «P1;" 

OUTPUT  «P1; 

OUTPUT  ®P1; 

OUTPUT  ®P1; 

OUTPUT  CPI; 

OUTPUT  ®P1; 

OUTPUT  ®P1; 

OUTPUT  CPI; 

OUTPUT  «P1 ; " " 

IMAGE  3D, 4X, Z . 5D, 4X, SZ . 3D, 4X, Z . 6D. 2X. 3D . 3D, 4X, S2D .D, 6X , S2D . 3D 
FOR  N-l  TO  Num_meas 

OUTPUT  «P1  USING  11400 ; Pdata (N, 1) ,Pdata(N,2) ,Pdata(N,3) ,Pdata(N,4) ,Pdata(N,5) . Pdata(N,6) , Pdata(N,7) 

IF  N-48  AND  0$="H"  THEN  OUTPUT  ®P1 ; CHR$ ( 12 ) ! Send  form  feed  (page  is  57  lines) 


Purge  file 

Enter  new  path/file 

On  file  error 
Create  file 

Turn  off  error  branching 
Open  path  & format  output 


Compact  field  - Power  in  mW 
MEASUREMENT  DATA" 


'FOR  POWER  METER:  WAVETEK  MODEL  8502A,  S/N  " ; Sn$ 


'USING  MOUNT:  ";Mount$;" 


• , Tdate$ ; ' 


Power 

(mW) 


Pwr- " ; P$ ; " 

(%) 


mW 


VI 


(V) 


Delta  V VI  Drift  Ref.  Offset" 

(mV)  ("&CHR$ (230) &"V/s)  (mV)" 


IF  N-48  AND  0$= 
Lines-0 
Page-2 
END  IF 

Lines-Lines+l 
NEXT  N 
OUTPUT  ®P1 ; " 


’H"  THEN 


Set  new  line  and  set  page  to  two 


Line  count 


! Make  strings  for  text  output 
! Number  of  measurements 
! Mean  power  in  mW 

! Sdmu  - Percent  standard  deviation 
! Max  % dev  from  the  mean(+) 

! Max  % dev  from  the  mean ( - ) 

■#,Z.DDD";ABS (Pres (2,1) ) ! Mean  % from  P0 

"H"  AND  Lines>20  THEN  OUTPUT  ®P1;CHR$(12)  ! Send  form  feed  to  printer 
"H"  AND  Num  meas>12  THEN  OUTPUT  ®P1;CHR$(12)  ! Send  FF 


MEASUREMENT  RESULTS" 


,Sd$,"  percent  standard  deviation 
and  " ; Md2 $ ; " percent." 


OUTPUT  Num_meas$  USING  "# , K" ; Num_meas 
OUTPUT  M$  USING  "# , Z . DDDDD" ; Pres ( 1 , 1) 

OUTPUT  Sd$  USING  "# , Z . DDD" ; Pres (5,1) 

OUTPUT  Mdl$  USING  "# , SZ . DDD" ; Pres (3 , 1) 

OUTPUT  Md2$  USING  "#, SZ .DDD" ; Pres (4 , 1) 

OUTPUT  Av$  USING 
IF  Page-2  AND  0$ 

IF  Page-0  AND  0$ 

OUTPUT  ®P1 
OUTPUT  «P1 
OUTPUT  ®P1 
IF  Num_meas>l  THEN 

OUTPUT  ®P1;  "The  mean  of  the  " ;Num_meas$ ; " measurements  is  ",M$,"  mW  with 
OUTPUT  ®P1 ; "of  the  mean.  The  maximum  deviation  from  the  mean  is  ";Mdl$,-" 

IF  Pres (2 , 1) <0  THEN 

OUTPUT  ®Pl;"The  mean  is  ",Av$,"  percent  less  them  ■ ; P$ ; " mW." 

ELSB 

OUTPUT  ®P1 ; "The  mean  is  ";Av$,-"  percent  greater  than  ";P$;"  mW." 

END  IF 

OUTPUT  CPI;”” 

OUTPUT  CPI; "The  table  below  shows  the  values  of  the  major  uncertainty  components.  The  total" 
OUTPUT  ®P1 ; "uncertainty  is  expressed  as  both  the  worst  case  sum  and  the  expanded  uncertainty." 
OUTPUT  CPI; "For  a discussion  of  standard  and  expanded  uncertainty  see  NIST  Technical  Note  1297," 
OUTPUT  ®P1 ;CHR$ (34) ; "Guidelines  for  Evaluating  and  Expressing  the  Uncertainty  of  NIST  Measurement 
OUTPUT  CPI; "Results. B;CHR$(34) 

ELSE 

OUTPUT  CPI; "The  table  of  uncertainties  is  not  computed  for  single  measurements." 

END  IF 

OUTPUT  CPI;"" 


IF  Num_meas>l  THEN  CALL  Table (@P1) 

IF  0$= "H"  THEN  OUTPUT  @P1;CHR$(12) 

ASSIGN  ®P1  TO  * 

PRINTER  IS  1 
SUB EXIT 
Error_handler : 

BEEP 
BEEP 

LINPUT  "ERROR  - Filename  or  Directory  not  found.  Press  enter. 


Print  table  of  results 
Send  form  feed  to  printer 
Close  path 
CRT 

Back  to  sub  Menu2 
Error  Branch 


, Fake$ 


Enter_name 
RETURN 
Mousetrap : 

! NO  RODENTS 
RETURN 
Keytrap : 

! DEAD  KEYS 
RETURN 
SUB END 


Back  to  enter  path/filename 
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12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 


Table:  SUB  Table (®P1)  ! Table  of  results 

OPTION  BASE  1 

COM  /Errs /Dp , Vic , VI i , VI f , Vlxi , Vlxf , Vlx , V2x , T1 f ac , T2 f ac , Cf u , Mmu , Deu , Dpu 
COM  /Errs/Gm, Scfu, Smmu, Sdeu, Sdpu , Wc_unc , Cs_unc , Ex_unc 


COM  /Harddata/Pdata (100, 7) , Pres (7, l) 

! Make 

OUTPUT  Cfu$  USING  "# , Z . DDD" ; Cfu 
OUTPUT  Scfu$  USING  "#, Z . DDD" ; Scfu 
OUTPUT  Mmu$  USING  "# , Z . DDD" ; Mmu 
OUTPUT  Smmu$  USING  "#, Z .DDD" ; Smmu 
OUTPUT  Deu$  USING  "# , Z .DDD" ;Deu 
OUTPUT  Sdeu$  USING  "# , Z . DDDn ; Sdeu 
OUTPUT  Dpu$  USING  , Z . DDD" ;Dpu 
OUTPUT  Sdpu$  USING  "#, Z . DDD" ; Sdpu 
OUTPUT  Sd$  USING  , Z . DDD" ; Pres (5 , 1) 
OUTPUT  Sdu$  USING  " # , Z . DDD " ; Pres (5,1)’ 
OUTPUT  Wc$  USING  " # , Z . DDD" ; Wc_unc 
OUTPUT  Cs$  USING  , Z . DDD" ; Cs_unc 
OUTPUT  Ex$  USING  , Z . DDD" ; Ex_unc 
OUTPUT  Gm$  USING  " # , Z . DDDD " ; Gm 


Strings 

! Mount  calibration  factor 
! Std  mount  calibration  factor 
! Mismatch  uncertainty 
! Std  mismatch  uncertainty 
! Dual  element  uncertianty 
! Std  dual  element  uncertainty 
! DVM  uncertainty 
! Std  DVM  uncertainty 
! Sdmu  - Percent  of  std  dev 
3 ! Percent  of  std  dev 

! Worst  case  sum 
! Combined  std  uncertainty 
! Expanded  uncertainty 
! Mount  reflection  coefficient 
Table 


OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
SUB  END 


@P1 

@P1 

@P1 

@P1 

@P1 

@P1 

@P1 

®P1 

@P1 

@P1 

®P1 

®P1 

®P1 

®P1 

@P1 

®P1 

®P1 

®P1 

®P1 

®P1 

®P1 

@P1 

®P1 


Value  of  uncertainty  components  in  percent  at  1 GHz. 

Uncertainty  factor 

Uncertainty 

limits 

Standard 

uncertainty 

DVM 

" ; Dpu$ ; " 

| " ; Sdpu 

Mount  calibration  factor 

" ; Cf  U$  ; " ' | n ; S C f u , 

; 

" 

" 

" 

Mismatch  (mount  reflection  coefficient  = ",-Gm$;") 

| " ; Mmu$  ; " 1 " ; SlTOm 

Dual  element 

| - .. 

" ;Deu$  ; " | ",•Sdeu^ 

| 

Random  effects  (standard  deviation  of  the  mean) 

" ; SduS ; " ' | ";Sd$; 

Worst  case  sum 

";Wc$,” 

i 

Combined  standard  uncertainty  (RSS) 

" ; Cs$ ; " 

Expanded  uncertainty  (coverage  factor  = 2) 

" ; Ex$ ; " 

— 

Kx_init:  SUB  Kx  init 


PRINTER  IS  10; WIDTH  96 
PRINT  CHR$ (27) &"@"; 

PRINT  CHR$ (27) &"k3" ; 

PRINT  CHR$ (27) &"xl"; 

PRINT  CHR$ (27) &"M" ; 

PRINT  CHR$ (27) &" tl" ; 

PRINT  CHR$ (27) &"7" ; 

PRINT  CHR$ (27) & "2 " ; 

PRINT  CHR$ (27) &"1"&CHR$ (12) 
SUB END 


! Init  Panasonic  KX-P1180  Printer 
! or  any  Epson  FX-86e/FX-800  compatible. 
! Printer  must  be  in  PGM  mode. 

! (Bpson  LQ  untested) 

! Output  to  printer 
! Reset  printer 

! 0=Courier,  l*Sans  Serif,  3=Prestige 
! NLQ  font 
! P=10  cpi  M=12  cpi 

! Selects  standard  graphic  character  set 
! Selects  IBM  mode  (character  set  1) 

! 6 lpi 

! Set  left  Margin  to  12  chr's  (1") 
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